Введите с клавиатуры три числа если А>В>С>0, то замените все числа их квадратами и выведите результаты на экран.

Question

Информатика

Сина

30 марта, 00:50

Введите с клавиатуры три числа если А>В>С>0, то замените все числа их квадратами и выведите результаты на экран.

+5

Ответы (1)

Знаете ответ?

Аленка · Answer 1

Var a, b, c:integer;

begin;

readln (a) ;

readln (b) ;

readln (c) ;

if (a>b) and (b>c) and (c>0) then

begin;

a:=sqr (a) ;

b:=sqr (b) ;

c:=sqr (c) ;

writeln ('a=', a) ;

writeln ('b=', b) ;

writeln ('c=', c) ;

end;

end.