Решить в Pascal и Python : 1)Найти сумму всех натуральных чиcел N (N < 1000) кратных 11, но не кратных 3.
2)Найти произведение всех натуральных чисел от 1 до 20.
natik49
1
12.04.2021 22:18
0
Другие вопросы по теме Информатика
xezi1
17.05.2019 12:10
Анна666111
07.09.2019 04:00
Bairachock
29.03.2020 12:03
Женя8а
06.05.2020 12:27
palieva69
06.05.2020 12:27
1234Носок
11.06.2019 04:10
эльвинчик2
11.06.2019 04:10
vmusatova2001
05.05.2020 12:50
Kaytha
05.05.2020 12:50
Популярные вопросы
- Прм температуре 100 вещество будет только в газообразном состоянии...
3 - Одна из сторон паролеограма в 3раза больше другой.найдите длину меньшей...
1 - Укажите глаголы в морфемный состав которых входит суффикс ева...
2 - Какое направление имеет вектор напряженности электрического поля двух...
1 - Пестрый но не лук в красной шапке но не гриб с крепким клювом но не...
1 - 1. какое количество теплоты выделяется при остывании 3 т чугуна на...
1 - Собственая скорость катера равна ? км\ч ,а скорость течения реки ?...
3 - Наречия которые не имеют отрицательного значения...
2 - Тело падает с высоты 24 метра какое расстояние тело проходит в течении...
3 - Электромагнитная индукция в катушке с площадью поперечного сечения...
3
Объяснение:
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.