МБ
Марина Бухтина
Легкая задачка в Turbo Pascal
Uses crt;
function summa(b:longint):longint;
var
d,a,c:longint;
begin
summa:=0;
if b>0 then
begin
c:=2;
a:=1;
d:=((a+b)*b) div 2;
summa:=d;
end;
if b<0 then
begin
a:=-1;
d:=((b+a)*abs(b) div 2)+1;
summa:=d;
end;
if b=0 then
begin
d:=1;
summa:=d;
end;
end;
var
b:longint;
f,g:text;
begin
assign(f,'INPUT.TXT');
reset(f);
read(f,b);
assign(g,'OUTPUT.TXT');
rewrite(g);
write(g,summa(b));
close(g);
end.
выводит на сайте программирования ошибку компиляций хотя у меня работает отлично