Составьте программу для решения следующей . введите - вопрос №9762394 от irushkanet 08.01.2020 01:28

Question

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

irushkanet · Answer

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.