Обсуждение @ 1068. Сумма @ Timus Online Judge

Stupid Petrov Please, help! (Wrong Answer, Problem 1068) [2] // Задача 1068. Сумма 24 окт 2002 08:05

var
a, k, b: integer;

begin
{$IFNDEF ONLINE_JUDGE}
ASSIGN (input, 'input.txt');
reset (input);
assign (output, 'output.txt');;
rewrite (output);
{$ENDIF}
readln (input, a);
if a>0 then for k:=0 to a do b:=b+k else for k:=1 downto a do b:=b+k;
writeln (output, b);
{$IFNDEF ONLINE_JUDGE}
close (input);
close (output);
{$ENDIF}
end.

shitty.Mishka That // Задача 1068. Сумма 24 окт 2002 13:02

> var
> a, k, b: integer;
>
> begin
> {$IFNDEF ONLINE_JUDGE}
> ASSIGN (input, 'input.txt');
> reset (input);
> assign (output, 'output.txt');;
> rewrite (output);
> {$ENDIF}
> readln (input, a);
> if a>0 then for k:=0 to a do b:=b+k else for k:=1 downto a do
b:=b+k;
> writeln (output, b);
> {$IFNDEF ONLINE_JUDGE}
> close (input);
> close (output);
> {$ENDIF}
> end.

shitty.Mishka That's a tuff one ! :) Firstly, use for..to instead of for..downto - it doesn't work properly on timus. And, secondly, variables are not always equal to 0 at the start of program run :) (-) // Задача 1068. Сумма 24 окт 2002 13:05

Обсуждение задачи 1068. Сумма