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