program nacitaniII;
{ Tento program očekává následující vstup:
na jedné řádce neznámý počet čísel ukončených číslem -1.
Všechna čísla se vejdou do rozsahu typu integer.
Program postupně načítá a vypisuje všechna čísla. Až u čísla -1 se zastaví
a to už ani nevypíše.
Všimněte si, že pokud nevíme, kolik těch čísel před ukončující -1 bude,
nemůžeme použít for-cyklus. Zde použijeme while cyklus, ale stejně tak bychom
mohli použít repeat-cyklus. }
var x : integer;
begin
read(x); { Načteme první číslo. Pokud to rovnou bude -1,
do těla následujícího while-cyklu se ani nevejde. }
while (x <> -1) do { Dokud v proměnné x není uložena hodnota -1, prováděj: }
begin
write(x,' '); { Vypiš hodnotu x. Díky mezeře v apostrofech budou vypisovaná
čísla oddělená mezerami. }
read(x); { Načti číslo. }
end;
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ů). ;)