Ввести три числа и определить, верно ли, что они вводились в порядке возрастания.

Question

Информатика

Натальюшка

2 февраля, 01:03

Ввести три числа и определить, верно ли, что они вводились в порядке возрастания.

+2

Ответы (2)

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

Еняха · Answer 1

Var

i, k, j:integer;

begin

readln (i, k, j) ;

if ((i
write ('true')

else

writeln ('false') ;

end.

Евтропия · Answer 2

Var one, two, three:integer;

Begin

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

ReadLn (one) ;

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

ReadLn (two) ;

Write ('Введите третье число число: ') ;

ReadLn (Three) ;

if (one < two) and (two < Three) then

writeln ('Числа введены в порядке возрастания')

else

writeln ('Числа НЕ введены в порядке возрастания') ;

End.