Дан диапазон от 1 до 1000,вывести на экран все числа которые кратны 7 и одновременно 11.найти сумму этих чисел и количество,
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
