Уисполнителя квадратор две команды, которым присвоены номера: 1. возведи в квадрат 2. прибавь 2 первая - id858497920210326 от varfo 26.03.2021 18:32

Question

Информатика: Уисполнителя квадратор две команды, которым присвоены номера: 1. возведи в квадрат 2. прибавь 2 первая из них возводит число на экране во вторую степень, вторая — прибавляет к числу 2. составьте алгоритм получения из числа 1 числа 85, содержащий не более 5 команд. в ответе запишите только номера команд. в ответе запишите только номера команд. (например, 21221 — это алгоритм: прибавь 2, возведи в квадрат, прибавь 2, прибавь 2, возведи в квадрат, который преобразует число 1 в 169.) если таких алгоритмов

varfo · Accepted Answer

program s1;

uses

SysUtils;

var

s, t: string;

i: Integer;

c: string;

begin

Write ('Введите строку: ');

ReadLn (s);

t := '';

for i := 1 to Length (s) do begin

if s [i] in ['a'..'z'] then

c := IntToStr (Ord (s [i]) - Ord ('a') + 1)

else if s [i] in ['A'..'Z'] then

c := IntToStr (Ord (s [i]) - Ord ('A') + 1)

else if s [i] = ' ' then

c := '0'

else

c := s [i];

t := t + c + ' ';

end;

WriteLn (t);

ReadLn

end.

program s2;