Var n,sum,sum2,d,ind,i,j:integer; sred :double;
begin
Write('n');
Readln(n);
d:=1;
ind:=3;
sum:=0; sum2:=0;sred:=0;
for i:=0 to ind-1 do
begin
sum:=sum+(n div d) mod 10;
sred:=sum/3;
sum2:=sum2+ sqr((n div d) mod 10);
d:=10*d;
end;
Writeln('suma ',Sum);
Writeln('Sum 2 ',sum2);
writeln('Sred ',sred:0:5);
//Writeln('вывод цифр');
d:=1;
for i:=0 to ind-1 do
begin
writeln((n div d) mod 10);
d:=10*d;
end;
readln;
end.
24)D
25)В
26)D
27)А
28)D
29)E
30)A
Var n,k,i:integer; f:boolean;
begin
readln(n);
k:=1;
f:=false;
while not f do
begin
k:=k+1;
f:=true;
for i:=2 to n do
f:=f and (k mod i=i-1);
end;
writeln(k);
end.
Пример (для 19 долго считает, можно оптимизировать, если нужно):
19
232792559