1. 

   DzeKabryst New Member

   помогитеее срочно)определите и выведите на экран количество натуральных чисел, меньших 1000 и делящихся на 5 и 7 одновременно.
   составить надо программу на паскале

    

   DzeKabryst, 22 фев 2010

   #1
2. 

   . | Made In Rай | New Member

   var
   i,k:integer;
   begin
   k:=0;
   for i:=35 to 1000 do 
   if (i mod 5 = 0) and (i mod 7 = 0) then k:=k+1;
   writeln (k);
   end.

    

   . | Made In Rай |, 22 фев 2010

   #2

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

Пароль:

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

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