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

Question

Информатика

Котя

8 апреля, 22:49

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

+4

Ответы (1)

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

Кама · Answer 1

uses crt;

var

a, b, c, min:integer;

begin

writeln ('Введи три числа: ') ;

readln (a, b, c) ;

min:=a;

if b
if c
writeln ('Наименьшее из этих чисел: ', min) ;

end.