Регистрация
Джека11111окш
13.07.2021 06:42
Информатика
Есть ответ 👍

Даны 3 числа a,b,c если они не равны то замените все чилса наибольшим из них и выведите результат на экран иначе найдите и вывидите сумму квадратов этих чисел

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

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

kazinka9
kazinka9
4,6(26 оценок)
Var a,b,c: integer; begin read(a,b,c); if (a< > b)and(b< > c)and(c< > a) then     begin     if a< b then a: =b;     if a< c then a: =c;     b: =a;     c: =a;     write(a,' ',b,' ',c)     end else write(a*a+b*b+c*c) end.
sakulich05
sakulich05
4,8(14 оценок)

Рис.3 - Летающие

Рис.1 - Плавающие

Рис.4 - Перемещающиеся вертикально

Рис.2 - Шагающие

Популярно: Информатика