Question

срочно хелп очень прошу!!!!!!!!!

Answer 1

эти задачи можно решить большим количеством способов. Выбор правильного способа может зависить от темы которую сейчас проходишь.

5.

var

   a, b, c : integer;

begin

   readln(a, b, c);

   if a > 0 then a *= a;

   if b > 0 then b *= b;

   if c > 0 then c *= c;

end.

6.

var

   a, b, c : integer;

begin

   readln(a, b, c);

   writeln(max(max(a, b), c));

end.

Answer 2

помоги еще

Answer 3

прошу тебя

Answer 4

https://znanija.com/task/31847051

Answer 5

реши пожалуйста

Answer 6

Ingr Ученый