Який об'єкт текстового документу має такі властивості: розмір полів, колонтитули, розмір паперу

283

287

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

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

dina15777

Информатика

4,7(76 оценок)

Var i,n,s: byte; //здесь мы описываем переменные i- флаг, n - наше число n, s- переменная "деления" label l1; // здесь мы begin l1: i: =0; //установка метки на начало программы и установка флага на первоначальное значение - нет repeat //проверка n на подлинность if i=1 then write('не верный ввод данных! повторите ввод: ') else write('введите номер n: '); // условие при котором в первый раз выводится предложение где нас просят ввести n, а если же мы её ввели не правильно выводится ошибка и опять нас просят ввести n так продолжается пока мы не введем правильный n readln(n); i: =1; // установка флага - да untill (n> =1) and (n< 100); // ограничения n writeln('ваше множество: '); // вывод множества; for i: =n to 99 do // из условия следует что числа будут в диапазоне от 1 до 99 т.к они натуральные и двухзначные begin s: =i mod 11; //условие при котором цифры повторяются т.е. делятся на 11 if (s< > 0) then write(i,'; '); // проверка условия выше; end; writeln; write('повторить программу? (1-да, 0-нет)-'); // предложение о том сделать ли еще раз программу read(i); if (i=1) then goto l1; // опять же установка флага и переход к метке l1; если же условие не выполняется, то конец программы end.