1. 

   MARTA_YA New Member

   найти количество двузначных натуральных чисел кратных трём.составить программу по темециклы

    

   MARTA_YA, 4 янв 2010

   #1
2. 

   Bobo4ka New Member

   var
   i,s:integer;
   begin
   for i:=10 to 99 do
   if (i+9) mod 3 =0
   then inc (s);
   writeln (s);
   end.
    
   и + 9 потому, что если взять просто и, мы будем проверять просто на делимость индекс, а не само число, хотя при просто и ответ тот же

    

   Bobo4ka, 4 янв 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня