Составьте программу для решения следующей задачи. Введите с клавиатуры три числа: А, В и С. Если они не равны, то замените все числа наибольшим из них и выведите результаты на экран. Иначе, найдите и выведите сумму квадратов этих чисел.
Answers & Comments
blowberryninja
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.
Answers & Comments
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.