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

190

498

Посмотреть ответы 3

Ответы на вопрос:

anastejsablek

Информатика

4,5(83 оценок)

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.

lotoskei

Информатика

4,4(80 оценок)

Var i,k,j: integer; begin readln(i,k,j); if ( (i< k) and (k< j)) then write ('true') else writeln('false'); end.

василиска8

Информатика

4,5(50 оценок)

Var x: real; begin readln(x); //вводим прошлоголнюю цену x: =x*0.3+x; // к самому числу х добавляем 0,3х (30% от числа) write(x,'pуб.'); //выводим настоящую цену end.