2.
var i,k:integer;
begin
for i:=30 to 90 do
begin
k:=i mod 6;
if (k=1)or(k=2)or(k=5) then write(i,' ');
end;
end.
Результат:
31 32 35 37 38 41 43 44 47 49 50 53 55 56 59 61 62 65 67 68 71 73 74 77 79 80 83 85 86 89
3.
var i,s:integer;
begin
s:=0;
for i:=1 to 70 do
if (i mod 3=0)or(i mod 7=0) then s:=s+i;
write('s = ',s);
end.
Результат:
s = 1087
4.
var i:integer;
begin
for i:=10 to 99 do
if (i mod 3=0)and(i mod 5<>0) then write(i,' ');
end.
Результат:
12 18 21 24 27 33 36 39 42 48 51 54 57 63 66 69 72 78 81 84 87 93 96 99
5.
var i,p:integer;
begin
p:=1;
for i:=10 to 99 do
if (i mod 2=1)and(i mod 11=0) then p:=p*i;
writeln('p = ',p);
end.
Результат:
p = 152193195