Question

Решить в Pascal и Python :
1)Найти сумму всех натуральных чиcел N (N < 1000) кратных 11, но не кратных 3.
2)Найти произведение всех натуральных чисел от 1 до 20.

Answer 1

Ответ:

Объяснение:

1)

var p, i: integer;

begin

p := 0;

for i := 1 to 999 do

   if i mod 11 = 0 and i mod 3 != 0 then p := p + i;

write(p);

end.

2)

var p, i: integer;

begin

p :=1;

for i :=1 to 20 do

p := p * i;

write(p);

end.