Program enot;
Var n,s,i:integer;
begin
read(n);
s:=0;
for i:= 1 to n do
if i mod 2 = 0 then
s:=s+i;
writeln('summa = ',s);
end.<span>
2.</span>Program enot;
Var n,p,i:integer;
begin
read(n);
p:=1;
for i:= 1 to n do p:=p*i;
writeln('proizvedenie = ',p);
<span>end.</span>
FOR i = 2 TO 20
PRINT SIN(i)
NEXT i
Var s:string;
i,j,l,min:byte;
begin
min:=255;
readln(s);
if s[1]='a' then j:=j+1;
s[length(s)+1]:=' ';
for i:=1 to length(s)+1 do
begin
if (s[i]='a') and (s[i-1]=' ') then j:=j+1;
if s[i]<>' ' then l:=l+1 else
begin
if s[i-1]<>' ' then
if min>l then min:=l; l:=0;
end;
end;
writeln('a) Slow kotorie nachinayutsa s "a" - ',j);
writeln('b) Dlina samogo korotkogo slova - ',min);
<span>end.</span>
Устройства для ввода информации