Введите с клавиатуры три числа если А больше В больше С больше 0, то замените все числа их квадратами и выведите результаты на экран .
Введите с клавиатуры три числа если А>В>С>0, то замените все числа их квадратами и выведите результаты на экран .
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы