Var n,I,c:integer;
begin
c:=0;
read(n);
for i:=1 to n do
if (i mod 2 != 0) and (i mod 3 != 0) and (i mod 5 != 0) then c:=c+1;
write(c);
end.
проверь в компиляторе, я Паскаль плохо помню, не уверен
Пуск..........................
Каждая последующая цифра умножается на 3.
1392781243729...
Var a:array[1..10] of Integer ;
p,i:integer;
Begin
p:=1;
WriteLn('Массив');
For i:= 1 to 10 do
begin
a[i]:=Random(20)-10;
Write(a[i]:3);
if a[i]<0 then p:=p*a[i];
end;
WriteLn;
WriteLn('Произведение отопительных элементов = ',p)
end.