1. 

   W.A.S.P. New Member

   Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N.
   Проверьте алгоритм трассировкой. Напишите программу на Паскале.

    

   W.A.S.P., 1 янв 2010

   #1
2. 

   pasikulator New Member

   Var a,k,n:integer;
   begin
   read(n); a:=0;
   for k:=1 to n do a:=a+k;
   write(a);
   end.

    

   pasikulator, 1 янв 2010

   #2

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

Пароль:

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

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