Question

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

Answer 1

// Составьте программу вычисления количества двузначных чисел, которые кратны 2 и 3.

var i,j,n,x  : byte;

begin

x:=0;

  for i:=10 to 99 do

  begin

    j:=i mod 2;

    n:=i mod 3;

    if (j=0) and (n=0) then

    begin

    writeln(i);

    x:=x+1;

    end;

  end; 

  Writeln ('количество кратных 2 и 3 двузначных чисел ',x);

end.