Надо использователь цикл for в котором в формуле прописать s:=i+1/3
Насколько я знаю , то можно создать в Вк такого бота , мне так говорили , там есть какое - то спец. приложение что ли
1 и 1 и 1 = 1 и 1 = 1 (истина)
Const n= 10;
var i,m: integer;
aa:array[1..n] of integer;
begin m:= 1;
for i:= 1 to n do
begin
aa[i]:= random(100);
if (aa[i] mod 2 = 0) then m:= aa[i] * m;
end;
writeln(m);
end.