Дан диапазон от 1 до 1000,вывести на экран все числа которые ...
Дан диапазон от 1 до 1000,вывести на экран все числа которые кратны 7 и одновременно 11.найти сумму этих чисел и количество,
Есть ответ
17.12.2022
129
Ответ
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.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022