Составить программу,которая вычисляет...

Тема в разделе "Информатика", создана пользователем Valerie, 23 мар 2010.

  1. Valerie

    Valerie New Member

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

    ne_prosto_ New Member

    Uses crt;
    var x,k:integer;
    begin
         k:=0;
         for x:=10 to 99 do
             if (x mod 2=0) and (x mod 3=0) then inc(k);
         writeln('Количество двухзначных чисел, кратных 2 и 3: ',k);
    end.
     

Поделиться этой страницей

Наша группа