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

247

287

Посмотреть ответы 2

Ответы на вопрос:

stanislavfred

Информатика

4,7(31 оценок)

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.

Nemo24

Информатика

4,7(91 оценок)

Виды 3D панорам. Сферические - угол обзора 360° по горизонтали и 180° по вертикали - без ограничения обзора, можно посмотреть во все стороны включая пол и потолок.

Объяснение: