Поиск по этому блогу

суббота, 16 сентября 2017 г.

Сумма

Время: 1 сек. Память: 16 Мб Сложность: 19%)
Требуется посчитать сумму целых чисел от 1 до N.
Входные данные
В единственной строке входного файла INPUT.TXT записано единственное целое число N, не превышающее по абсолютной величине 10^4.
Выходные данные
В единственную строку выходного файла OUTPUT.TXT нужно вывести одно целое число — сумму чисел от 1 до N.
Пример
INPUT.TXT
OUTPUT.TXT
1
5
15

 Решение

var n,m:integer;
    s:longint;
     f,f1:text;
  begin
    assign(f,'input.txt');
    reset(f);
     assign(f1,'output.txt');
     rewrite(f1);
    readln(f,n);
    writeln(n);
    if n=0 then s:=1;
     
    if n>0 then begin
    s:=0;
    for m:=1 to n do
     s:=s+m end;
     if n<0 then begin
     s:=0;
     for m:=2 to abs(n) do
     begin
     s:=s-m;
     end;
     end;
        writeln(f1,s);
     close(f);
      close(f1);
      write(s);
  end.

Комментариев нет:

Отправить комментарий