Составить программу чисел кратных 7 и 11 от 144 до 1000 (найти сумму и их количество)…

Question

87

Составить программу чисел кратных 7 и 11 от 144 до 1000 (найти сумму и их количество) помогитепожалуйстаа)

в избранное ссылка

Знаете ответ?

alex47 · Accepted Answer

74

alex47

17 апреля 2023

var i,s,n: integer; beginfor i: =144 to 1000 do if (i mod 7=0) or (i mod 11=0) then begin s: =s+i; n: =n+1; end; writeln (s,',n); end.

комментировать

в избранное ссылка отблагодарить