у исполнителя вычислитель две команды, которым присвоены номера: 1. умножь на 2 2. прибавь 1 Первая - id1853398320220226 от teylor3 26.02.2022 16:24

Question

Информатика: у исполнителя вычислитель две команды, которым присвоены номера: 1. умножь на 2 2. прибавь 1 Первая из них увеличивает число на экране в 2 раза, вторая увеличивает его на 1. Составьте алгоритм получения из числа 2 числа 14, содержащий не более 4 команд. В ответе запишите только номера команд.

teylor3 · Accepted Answer

Var
a:array[1..8,1..8] of integer;{матрица}
i,i1,b,sum,st:integer;{первые 2 переменные для циклов,b - для заполнения матрицы, sum - для нахождения суммы чисел}
begin
for i:=1 to 8 do begin
    for i1:=1 to 8 do begin
      b:=b+1;
      if b mod 2 = 0 then a[i,i1]:=b else a[i,i1]:=b+1;
      if a[i,i1] > 60 then write(0:3) else if a[i,i1] < 18 then write(0:3) else write(a[i,i1]:3);

    end;
    writeln;
end;
writeln('Главная диагональ');
sum:=1;
for i:=1 to 8 do begin
    sum:=sum*a[i,i];
    writeln(a[i,i]:i*2);
end;
writeln('Сумма - ',sum);
write('Введите номер столбца - ');
readln(st);
sum:=0;
for i:=1 to 8 do sum:=sum+a[i,st];
writeln('Сумма чисел этого столбца - ',sum);
end.

MOGZ ответил