Дано 2 неравных числа. Вывести на экран порядковый номер наименьшего числа (если меньшее число вводится первым, то вывести "1", в противоположном случае "2")

Question

Информатика

Агаханим

14 июня, 13:55

Дано 2 неравных числа. Вывести на экран порядковый номер наименьшего числа (если меньшее число вводится первым, то вывести "1", в противоположном случае "2")

+1

Ответы (1)

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

Абдуджабор · Answer 1

var a, b:real;

begin

writeln ('Введите первое число') ;

readln (a) ;

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

readln (b) ;

if a
writeln (1) else

writeln (2)

end.