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

Question

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

моюр · Answer

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

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

Популярные вопросы