Разработать пакетный файл для вывода текстового файла на экран по страницам. Имя файла передается в командной строке ЖЕЛАТЕЛЬНО РАСПИСАТЬ ПОДРОБНО

247

384

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

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

ayzhan1979

Информатика

4,8(54 оценок)

Var x,x1,x2,x3: integer; begin write('введите число'); readln(x); x1: =x mod 10; x2: =x div 100; x3: =(x div 10) mod 10; if (x1> x2) and (x1> x3) then write(x1); if (x2> x1) and (x2> x3) then write(x2); if (x3> x2) and (x3> x1) then write(x3); readln end.