Составить блок-схему алгоритма. Определить тип алгоритма. Составить программу на языке программирования Паскаль.

157

425

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

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

elenafedorova

Информатика

4,6(71 оценок)

Var a: integer; begin writeln('введите трёхзначное число'); readln(a); writeln('1: ',(a div 100 < > (a div 10) mod 10)and((a div 10) mod 10 < > a mod 10)and(a mod 10 < > a div 100)); write('2: '); if (a div 100 < = (a div 10) mod 10) then write(true) else div 100) mod 10 < = a mod 10)); end.