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

Question

Информатика

Эллада

21 августа, 01:39

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

+1

Ответы (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