Підрахувати суму та добуток чисел менших за 100 і кратниз 3

Question

62

Підрахувати суму та добуток чисел менших за 100 і кратниз 3

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

laperus · Accepted Answer

67

laperus

22 марта 2023

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: