Регистрация
миньён9
19.08.2021 11:00
Информатика
Есть ответ 👍

Переведите программу из питона в паскаль ​

185
486
Посмотреть ответы 1

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

bauer2002
bauer2002
4,8(36 оценок)

Program sravnenie;

var a,b,c: real;

begin  

  readln(a,b);

  if a>b then c:=a

  else c:=b;

  writeln('Наибольшее число:', c);

end.

Program abc;

var a,b,c:real;

begin

 Write('Введите первое число:');readln(a);

 Write('Введите второе число:');readln(b);

 Write('Введите третье число:');readln(c);

 

 if a<0 then a:=sqr(sqr(a)) else a:=sqr(a);

 if b<0 then b:=sqr(sqr(b)) else b:=sqr(b);

 if c<0 then c:=sqr(sqr(c)) else c:=sqr(c);

 Writeln(a);Writeln(b);Writeln(c);

end.

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