Знайти добуток чисел кратних 5 в діапазоні от 1 до 100 програмный код!

Question

95

Знайти добуток чисел кратних 5 в діапазоні от 1 до 100 програмный код!

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

ответить

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

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

erzgerzeg · Accepted Answer

45

erzgerzeg

23 апреля 2023

Program Count; Uses Crt; var i,n: byte; begin n: =0; for i: =1 to 100 do if (i mod 5)=0 then n: =n+1; writeln ('Количество чисел кратных 5: ',n); readkey; end.

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

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

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

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