Введите два числа a,b.Выведите на экран порядковый номер меньшего из них. Пример ввода:7 6 Пример вывода:2
Введите два числа a,b.Выведите на экран порядковый номер меньшего из них.
Пример ввода:7 6
Пример вывода:2
Гость
Ответ(ы) на вопрос:
Гостьprogram a_1;
Var a,b : real;
begin
writeln('Введите 2 числа');
read(a,b);
if a > b then
Writeln('Число: ' +a+ ' Порядковый номер: 1')
else Writeln('Число: ' +b+ ' Порядковый номер: 2');
end.
Не нашли ответ?
Похожие вопросы