Помогите составить программу на паскале нахождения из 3 введенных чисел наименьшее

Question

Информатика

Альберт

18 июля, 04:36

Помогите составить программу на паскале нахождения из 3 введенных чисел наименьшее

+5

Ответы (1)

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

Олимпиодора · Answer 1

Program tt;

var A, B, C, M: Integer;

begin

Writeln ('Введите три числа.') ;

Readln (A, B, C) ;

if (A = B) and (B = C) then Writeln ('Числа равны.')

else begin

if A < B then

M:=A

else M:=B;

if M < C then Writeln ('Наименьшее число - ', M,'.')

else Writeln ('Наименьшее число - ', C,'.')

end;

End.