Составьте программу вычисления количества трёхзначных чисел, которые кратны 100 или 43.

Question

Составьте программу вычисления количества трёхзначных чисел, которые кратны 100 или 43.

Answer 1

var
i,n: integer;
begin
n:=0;
for i:=100 to 999 do
if (i mod 100=0) or (i mod 43=0) then
   begin
   n:=n+1;
   writeln (i);
   end;
 writeln ('количество чисел кратных 100 или 43= ',n);
end.

Comments

Спасибо большое.