Составьте алгоритм определения меньшего из двух чисел
Program naimen;
Var A, B: integer;
begin
Write (Введите число А=);
Read (A);
Write (Введите число B=);
Read (B);
If A
Write (Наименьшее число А)
else Write (Наименьшее число В);
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Составьте алгоритм определения меньшего из двух чисел
Program naimen;
Var A, B: integer;
begin
Write (Введите число А=);
Read (A);
Write (Введите число B=);
Read (B);
If A
Write (Наименьшее число А)
else Write (Наименьшее число В);
end.