Решения задач acmp.ru
Главная
Вход
Регистрация
Четверг, 01.10.2020, 03:22Приветствую Вас Гость | RSS
Меню сайта

Категории раздела
Pascal [121]
C++ [76]

Поиск

Мини-чат
200

Легкий заработок!

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Главная » Файлы » Pascal

0002 Сумма

Скачать файл можно после просмотра рекламы:

04.06.2012, 16:48
var i,n,s: longint;
    t: text;
begin
     assign(t,'input.txt');
     reset(t);
     readln(t,n);
     close(T);
     s:=0;
     if n<=0 then
     for i:=1 downto n do s:=s+i else
     for i:=1 to n do s:=s+i;

     assign(t,'output.txt');
     rewrite(t);
     writeln(t,s);
     close(t);
end. 
Категория: Pascal | Добавил: shum
Просмотров: 4361 | Загрузок: 0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Это интересно!


Copyright MyCorp © 2020