Решить в Pascal и Python :
1)Найти сумму всех натуральных чиcел N (N < 1000) кратных 11, но не кратных 3.
2)Найти произведение всех натуральных чисел от 1 до 20.
1)Найти сумму всех натуральных чиcел N (N < 1000) кратных 11, но не кратных 3.
2)Найти произведение всех натуральных чисел от 1 до 20.
More Questions From This User See All
Answers & Comments
Ответ:
Объяснение:
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.