Вот программа:
uses Crt;
var i: integer;
begin
ClrScr;
for i:=65 to 90 do
Write(Chr(i):4);
WriteLn; WriteLn;
for i:=97 to 122 do
Write(Chr(i):4);
WriteLn;
ReadLn;
end.
===== PascalABC.NET =====
begin
ReadInteger.ToString.Select(c -> c.ToDigit ** 3).Sum.Println
end.
Var sum,i:integer;
begin
for i:=100 to 1000 do
if (i mod 3=0) then sum:=sum+i;
writeln('Сумма чисел кратных 3 равна ',sum);
end.<span>
</span>
Program P11;
var P, x : real; {описываем переменные Р и х как вещественные числа}
b : integer; {переменную b как целое число}
Begin
Write ('Введите значение переменной Х:');
Readln(x); {Получаем значение переменной Х}
P:=0; {Обнуляем значение переменной Р}
For B:=1 to7 do {Переменная В изменяется от 1 до 7, для этого используем цикл с параметром}
P:=P+(sqr(x)+2*b); {Значение переменной P увеличиваеться с каждым проходом на X^2+2b, т.е. считается сумма Х^2+2b для всех b от 1 до 7}
Writeln('P=', P:3,2); {Выводим значение Р}
End.
Макет документа описывает формат бумаги, размеры, размеры полей, колонтитулы, возможно нумерацию листов.
Однозначно нужен при дальнейшей печати документа на принтере. Может еще где пригодится, что бы визуально правильно воспринимать документ