[Pascal] Sprawdzenie zadania

[edaro]

Co zwróci ten program:

Kod: Zaznacz cały

program ile;
var i:integer;

procedure drukuj;
begin
for i:=1 to 4 do
writeln(i)
end;

begin
for i:=1 to 2 do
begin
drukuj;
end;
end.

Zdaje mi się, że "iii"

[kadiii]

Wynikiem będzie "12341234". Po pierwsze wypisujesz zmienną, a po drugie masz od 1 do 4(czyli 4 razy) w proceduralnej pętli i 2 razy w pętli w głównej funkcji.

[eloar]

Tyle tylko kadiii, ze program wydrukuje to w pionie , bo użyta jest funkcja writeln. . Ale to juz praktycznie żadna różnica.