Даны целые числа A, B, C. Если A <B <C, то все числа возвести в квадрат и напечатать, иначе найти сумму этих чисел и напечатать.
Ответы
Ответ дал:
0
// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=ReadReal3('Введите A,B,C через пробел:');
if (b>a) and (b<c) then Println(a*a,b*b,c*c)
else Writeln(a+b+c)
end.
Примеры
Введите A,B,C через пробел: 3.15 8 -6
5.15
Введите A,B,C через пробел: -6 1.18 4.521
36 1.3924 20.439441
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=ReadReal3('Введите A,B,C через пробел:');
if (b>a) and (b<c) then Println(a*a,b*b,c*c)
else Writeln(a+b+c)
end.
Примеры
Введите A,B,C через пробел: 3.15 8 -6
5.15
Введите A,B,C через пробел: -6 1.18 4.521
36 1.3924 20.439441
Вас заинтересует
1 год назад
2 года назад
8 лет назад
8 лет назад