Ответы на вопрос:
если n это количество чисел, начинаем с 3
var
i,n,p: integer
begin
readln(n);
i: =3;
p: =1;
while i< =3*n do
begin
p: =p*i;
i: =i+3;
end;
writeln(p);
end.
если n это верхняя граница чисел
var
i,n,p: integer
begin
readln(n);
for i: =3 to n
if i mod 3 = 0 then
p: =p*i;
writeln(p);
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
kalymkulovramaz31.07.2020 20:55
-
FireLive18.01.2023 22:01
-
amankeldievan12.12.2021 16:26
-
котямотя305.03.2021 01:04
-
play123902.11.2022 12:15
-
настя2003412200322.12.2020 09:01
-
Viola32031.01.2022 06:43
-
Kriiisskriiiis02.01.2023 14:09
-
ВулканчикD13.09.2020 12:44
-
masha332316.05.2020 03:55
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.