Регистрация
borisrvadarya0
19.11.2020 12:17
Информатика
Есть ответ 👍

Найти наибольшее из чисел x,y,z определить положит. оно или отриц. Если положительное - вощвсетив. квадрат, отрицательное - утроить. Ноль не учитывать с программой в паскаль и составьте блок-схему

119
121
Посмотреть ответы 1

Ответы на вопрос:

madecat
madecat
4,7(48 оценок)

var a: array[1..10] of integer;

p,i: integer;

begin

  p: =1;

  for i: = 1 to 10 do begin

      a[i]: =i+i*i;

      if odd(i) then begin

          writeln(a[i]);

          p: =p*a[i];

      end;

  end;

  writeln(p);

end.

Популярно: Информатика