Дан диапазон от 1 до 1000,вывести на экран все числа - вопрос №110007111524613 от artemdychokp00pti 30.06.2022 04:01

Question

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

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