1. 

   Astro New Member

   1) Найдите сумму и произведение целых чисел больших 13 и меньших 100 и кратных 4. решите задачу на языкеPascal

    

   Astro, 24 мар 2010

   #1
2. 

   ssj12345 New Member

   Program Pr1;
   uses crt;
   var i,c,t:integer;
   begin
   clrscr;
   c:=0;
   t:=1;
   i:=14;
   while i<100 do if i mod 4=0 then begin
   c:=c+i;
   t:=t*i;
   end;
   writeln('+ ',c);
   writeln('* ',t);
   end.
    

    

   ssj12345, 24 мар 2010

   #2

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

Пароль:

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

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