program princezninyKorale;
{ Testik na 5. hodině (1.11.2012).
Jedno z možných řešení:
Načteme n = počet korálků. Dále sečteme čísla od 1 do n -->
a od tohoto součtu odečteme čísla všech korálků, které se
neztratily. Pak vypíšeme zbývající číslo, což je číslo
ztraceného korálku. }
var n, i, x, celkem : integer;
begin
read(n);
celkem := 0; { Proměnnou celkem musíme nejdříve vynulovat.}
for i:=1 to n do
celkem := celkem + i; { Sčítáme čísla od 1 do n. }
for i:=1 to n-1 do
begin
read(x);
celkem := celkem - x; { Odčítáme neztracené korálky. }
end;
writeln(celkem);
end.
Kdo byste našel v nějakém z těchto programů chybu, dejte mi to vědět - můžete tak získat bonusové body (1 chyba ≈ 5 bodů). ;)