Разметка страницы--- поля---ориентация--- размер-----колонки--- разрывы--- номер строк--- расстановка переносов
Поля: обычные, узкие, широкие, средние, зеркальные.
Рецензирование--правописание
Быстрая печать, печатает текст без исправлений. а Печать, можно добавить количество копий, двух сторонняя печать, выбрать принтер разобрать по копиям, выбрать печать определенных страниц
Var n,m:interer;
Begin
write('Введите день') ; Readln(d);
write('Введите месяц'); Readln(m);
if (m = 2) and (d=28) then <span> writeln('День - 1',' Месяц - 3');</span><span> if (m=1) or (m=3) or (m=5) or (m=7) or (m=8) or (m=10) or (m=12) then</span><span> if (d>1) and (d<31) then begin</span><span> d:=d+1;</span><span> writeln('День -',d,'Месяц- ',m); end</span><span> else if d=31 then begin m:=m+1; wrteln('День - 1','Месяц- ',m); end;</span><span> if (m=2) or (m=4) or (m=6) or (m=9) or (m=11) they</span><span> if d<30 then begin d:=d+1; writeln('День -',d,'Месяц- ',m); end</span><span> else d=30 then begin m:=m+1; wrteln('День - 1','Месяц- ',m); end;
</span><span>readln;
end.
НЕДОРАБОТАНА</span>
1)1
2)3
3)1
4)2
5)равномерным
6)возможность расшифровки исключительно цифровым путём.
Var
a:array [1..10] of integer;
i,k,s:integer;
begin
randomize;
writeln('Массив:');
for i:=1 to 10 do
begin
a[i]:=random(191)+10;
write(a[i],' ');
end;
writeln;
for i:=1 to 10 do
begin
if (a[i]<100)and(((a[i] div 10)mod 2)=0) then s:=s+a[i] else
if (((a[i] div 10)mod 10) mod 2) = 0 then s:=s+a[i];
end;
writeln('Сумма элементов у которых вторая с конца цифра четная:',s);
end.