Const
n = 10;
var
b: array [1..n] of real;
i: byte;
begin
for i := 1 to n do
begin
b[i] := cos(i);
writeln('b[',i,'] = ', b[i]);
end;
end.
// PascalABC.Net v3.1
var
n,p: integer;
begin
// 1. вывод нечетных от 50 до 40
n:=51;
while n>=41 <span>do begin </span>
writeln(n);
n:=n-2;
end;
// 2. Произведение от 7 до 12
p:=1;
n:=7;
while n<=12 do begin
p:= p* n;
n :=n+1;
end;
writeln(p);
end.
Электронная почтовая, это как средство приложения к письмам
1 символ - 1 байт => 30 символов - 30 байтов