Написать программу вычисления суммы кратных 5 из натурального ряда чисел от 1 до n, и произведение чисел кратных 3 (2 способа: for,while)

Ответы (1)

Мартианин 15.11.2025 1

var
i, s, p :integer;
begin
write ('n=');
readln (n);
s:=0;
p:=1;
for i:=1 to n do
  begin
   if i mod 5=0 then s:=s+i;
   if i mod 3=0 then  p:=p*i
end;
Writeln ('s=', s, ' p=', p)
end.

2)
var
i, s, p :integer;
begin
write ('n=');
readln (n);
s:=0;
p:=1;
   i:=1
while i= n do
  begin
   if i mod 5=0 then s:=s+i;
   if i mod 3=0 then  p:=p*i;
i:=i +1;
end;
Writeln ('s=', s, ' p=', p)
end.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ