Odpowiadasz na:

Re: Zadania w Pascalu

Cześć!!
Jeżeli chodzi o zadanie 2
program repeat1;

var
ch:char; i:integer;
begin
i:=0
repeat
writeln;
writeln('Wcisnij klawisz k, jesli... rozwiń

Cześć!!
Jeżeli chodzi o zadanie 2
program repeat1;

var
ch:char; i:integer;
begin
i:=0
repeat
writeln;
writeln('Wcisnij klawisz k, jesli chcesz zakonczyc');
readln(ch);
i:=i+1;
until(ch='k');
writeln('Pętla była wykonana ',i,' razy')
end.

Powinno działać