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

Question

Информатика

Васяк

18 апреля, 19:17

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

+5

Ответы (1)

Знаете ответ на вопрос?

Денисыч · Answer 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.