помогите составить программу на паскале нахождения из 3 введенных чисел наименьшее
Answers & Comments
timscal
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.
Answers & Comments
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.