Даны 3 числа a, б, с, Найти сумму а, б, с min из трех,

Question

Информатика

Автоном

12 июня, 21:36

Даны 3 числа a, б, с, Найти сумму а, б, с min из трех,

+2

Ответы (1)

Знаете ответ на вопрос?

Мута · Answer 1

Var

a, b, c:integer;

begin

Writeln ('Введите три целых числа: ') ; Read (a, b, c) ;

Write ('Их сумма равна ', a+b+c) ;

Write (', минимальное число ') ;

if a
if a
else

if b
end.

Тестовое решение

Введите три целых числа:

-5 - 12 8

Их сумма равна - 9, минимальное число - 12