Решите задачу на языке Paskal

Дано 3 числа. Найти наименьшее из них.

Question

Информатика

Мария

14 апреля, 19:35

Решите задачу на языке Paskal

Дано 3 числа. Найти наименьшее из них.

+2

Ответы (1)

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

Рафаил · Answer 1

Var a, b, c, min: Integer;

begin

writeln ('Введите 1 число') ;

readln (a) ;

writeln ('Введите 2 число') ;

readln (b) ;

writeln ('Введите 3 число') ;

readln (c) ;

min:=a;

if b < min then min:=b;

if c < min then min:=c;

writeln (min) ;

end.

Решите задачу на языке PaskalДано 3 числа. Найти наименьшее из них.

Решите задачу на языке Paskal

Дано 3 числа. Найти наименьшее из них.