Составьте программу для решения следующей . введите с клавиатуры три числа: а, в, с. если a = с, то все числа замените их квадратами и выведите результаты на экран. если а > в > с, то каждое число замените наибольшим и выведите результаты. иначе, а сделайте равным сумме в и с, с обнулите, в оставьте без изменения и выведите результаты.

0304131 0304131    2   05.10.2019 14:30    0

Ответы
вика3877 вика3877  09.10.2020 21:49

var

a,b,c: integer;

begin

readln(a,b,c);

if a=c then

 writeln('A = ', a*a, ' B = ', b*b, ' C = ', c*c)

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

 writeln('A = ', a, ' B = ', a, ' C = ', a)

else writeln('A = ', b+c, ' B = ', a, ' C = ', 0);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика