Ответы
Ответ дал:
0
var
a,b,c:integer;
begin
Writeln('Введите три целых числа: '); Read(a,b,c);
Write('Их сумма равна ',a+b+c);
Write(', минимальное число ');
if a<b then
if a<c then Writeln(a) else Writeln(c)
else
if b<c then Writeln(b) else Writeln(c)
end.
Тестовое решение
Введите три целых числа:
-5 -12 8
Их сумма равна -9, минимальное число -12
a,b,c:integer;
begin
Writeln('Введите три целых числа: '); Read(a,b,c);
Write('Их сумма равна ',a+b+c);
Write(', минимальное число ');
if a<b then
if a<c then Writeln(a) else Writeln(c)
else
if b<c then Writeln(b) else Writeln(c)
end.
Тестовое решение
Введите три целых числа:
-5 -12 8
Их сумма равна -9, минимальное число -12
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
9 лет назад