Целочисленная арифметика
Кто решит ? Из друзей никто не может решить, а я решала решала вот то что нарешала:
Требуется посчитать сумму целых чисел от 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.
Требуется посчитать сумму целых чисел от 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.
[highlight=pascal]Assign(output,'output.txt');reset(output);[/highlight]
должно быть
[highlight=pascal]Assign(output,'output.txt');rewrite(output);[/highlight]
должно быть
[highlight=pascal]Assign(output,'output.txt');rewrite(output);[/highlight]
я исправила но всё равно ошибку выдаёт
Какую?
ошибка 85
У тя в коде 3 ошибки первая
после integer стоит : а надо ;
вторая убрать begin после
и треться из файла надо считывать в переменную n а не s
заменить на
вот полностью рабочий код
Код:
Var n,i,s:integer:
после integer стоит : а надо ;
вторая убрать begin после
Код:
Assign(output,'output.txt');reset(output);
{Begin не надо}
{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.
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.
ух ты здорово спасибо большое!!!!!!