Дан диапазон от 1 до 1000,вывести на экран все - вопрос №1524388110007 от karolsevilla2017 01.04.2023 07:06

Question

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

karolsevilla2017 · 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....