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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted 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.