Написать программу которая удваивает меньшее из трёх чисел

1 Фев 2019 в 14:22
278 +1
0
Ответы
1

Var a, b, c, min: integer;

Begin

Readln(a, b, c);

Min:=a;

If b<min and b<c then min:=b

Else c<min and c<b then min:=c;

Writeln(min)

End.

19 Фев 2019 в 20:33
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир