Question

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

Answer 1

Program abc;
var a,b,c:integer;
begin
readln(a,b,c);
if ((a=b) and (b=c) and (c=a)) then writeln(sqr(a)+sqr(b)+sqr(c))
else if (a>b) and (b>c) then begin b:=a; c:=a; writeln('a=',a,' b=',b,' c=',c) end
else if (b>a) and (c<b) then begin a:=b; c:=b; writeln('a=',a,' b=',b,' c=',c) end
else if (c>a) and (c>b) then begin a:=c; b:=c; writeln('a=',a,' b=',b,' c=',c) end;
end.