Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Целочисленная арифметика

50K
26 июня 2009 года
aska
4 / / 26.06.2009
Кто решит ? Из друзей никто не может решить, а я решала решала вот то что нарешала:
Требуется посчитать сумму целых чисел от 1 до N.
Входные данные
В единственной строке входного файла INPUT.TXT записано единственное целое число N, не превышающее по абсолютной величине 104.
Выходные данные
В единственную строку выходного файла OUTPUT.TXT нужно вывести одно целое число — сумму чисел от 1 до N.
беру число 5 должно выйти 15.

решала решала вот то что нарешала:
Program Z_2;
Var n,i,s:integer:
input,output:text;
Begin
Assign(input,'input.txt');reset(input);
Assign(output,'output.txt');reset(output);
Begin
Readln(input,s);
S:=0;
For i:=1 to n do
S:=S+i;
Write(output,s);
Close(input);
Close(output);
End.
44K
27 июня 2009 года
OCTAGRAM
30 / / 11.03.2009
[highlight=pascal]Assign(output,'output.txt');reset(output);[/highlight]
должно быть
[highlight=pascal]Assign(output,'output.txt');rewrite(output);[/highlight]
50K
27 июня 2009 года
aska
4 / / 26.06.2009
я исправила но всё равно ошибку выдаёт
247
27 июня 2009 года
wanja
1.2K / / 03.02.2003
Какую?
50K
27 июня 2009 года
aska
4 / / 26.06.2009
ошибка 85
1.8K
27 июня 2009 года
Death Knight
139 / / 19.02.2006
У тя в коде 3 ошибки первая

 
Код:
Var n,i,s:integer:

после integer стоит : а надо ;

вторая убрать begin после

 
Код:
Assign(output,'output.txt');reset(output);
{Begin не надо}


и треться из файла надо считывать в переменную n а не s

 
Код:
Readln(input,s);

заменить на
 
Код:
Readln(input,n);


вот полностью рабочий код
Код:
Program Z_2;
uses wincrt;
Var n,i,s:integer;
input,output:text;
Begin
Assign(input,'input.txt');
reset(input);
Assign(output,'output.txt');
rewrite(output);
Readln(input,n);
S:=0;
For i:=1 to n do
S:=S+i;
Write(output,s);
Close(input);
Close(output);
End.
50K
27 июня 2009 года
aska
4 / / 26.06.2009
ух ты здорово спасибо большое!!!!!!

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог