Підрахувати суму та добуток чисел менших за 100 і кратниз 3
Підрахувати суму та добуток чисел менших за 100 і кратниз 3
Гость
Ответ(ы) на вопрос:
Гостьvar
x,sum: integer;
prod: double;
begin
prod:= 1;
sum:= 0;
x:= 1;
while x<100 do begin
if x mod 3 = 0 then begin
sum:= sum+x;
prod:= prod*x
end;
inc(x)
end;
writeln('Сумма=',sum);
writeln('Произведение=',prod)
end.
Не нашли ответ?
Похожие вопросы