1. 

   pasha750 New Member

   Написать прогрумму для нахождения суммы всех вводимых целых чисел. ввод чисел прекратить после достижения значения 100 иболее

    

   pasha750, 30 янв 2010

   #1
2. 

   VASKIN New Member

   Паскаль
   var a,b,c,d,n,x:integer;
   Begin
   x:=100;
   a:=0;
   for c:=1 to x  do
   begin
   readln(x);
   a:=a+x;
   end;
   writeln(a)
   end.
   
   P.s если помог поставьте лучшее решение!

    

   VASKIN, 30 янв 2010

   #2

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

Пароль:

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

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