Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Информатика 10 класс (

Ответ оставил Гость

1

var a, b, c, max: integer;

begin
readln(a, b, c);
if ((a <> b) and (a <> c)) then
begin
if (a >= b) then
max := a
else
max := b;
if (c > max) then
max:=c;
a:=max; b:=max; c:=max;
writeln(a, ,b, ,c);
end
else
writeln(sqr(a)+sqr(b)+sqr(c));
readln;

end.