Дан диапазон от 1 до 1000, вывести на экран все числа которые кратны 7 и одновременно…

Question

96

Дан диапазон от 1 до 1000, вывести на экран все числа которые кратны 7 и одновременно 11. Найти сумму этих чисел иколичество,

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

ответить

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

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

dadyda · Accepted Answer

38

dadyda

30 марта 2023

var i, b, c: integer; beginb: =0; c: =0; for i: =1 to 1000 dobeginif (i mod 7=0) and (i mod 11=0) then beginb: =b+1; c: =c+i; end; end; writeln ('summ=',c,' kol=',b) end.

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

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

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

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