ПОМОГИТЕЕЕ!!!!!HELP!!!!!! напишите программу вычисления суммы чисел кратных 5 из натурального ряда чисел от 1 до n , и произведение чисел кратных к 3 (while)
ПОМОГИТЕЕЕ!!!!!HELP!!!!!!
напишите программу вычисления суммы чисел кратных 5 из натурального ряда чисел от 1 до n , и произведение чисел кратных к 3 (while)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы