1. 

   Gastella New Member

   Составить программу чисел кратных 7 и 11 от 144 до 1000 (найти сумму и их количество) помогитепожалуйстааа))

    

   Gastella, 21 мар 2010

   #1
2. 

   zx14ad New Member

   var i,s,n:integer;
   begin
   for i:=144 to 1000 do if (i mod 7=0) or (i mod 11=0) then begin s:=s+i; n:=n+1; end;
   writeln(s,' ',n);
   end.

    

   zx14ad, 21 мар 2010

   #2

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

Пароль:

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

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