Дан диапазон от 1 до 1000,вывести на экран все числа - вопрос №1525290110007 от murkacomkate 27.07.2021 08:58

Question

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

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