Question

Cześć potrzebuje na zaraz przekształcic zadanie:

1.zrobić to samo tylko, że z petlą REPEAT.

Z GÓRY DZIĘKI!!!

program zad;
uses crt2;
var a:integer;
begin
clrscr;
for a:=0 to 10 do
writeln(a);
readln;
end.

Answer 1

program zad;
uses crt;
var a:integer;
begin
clrscr;
a:=0;
repeat
writeln(a);
a:=a+1;
until a=10;
readln;
end.

Answer 2

Oto moja propozycja rozwiązania:

program zadanie;
uses crt;
var x:integer;
begin
clrscr;
x:=0;
repeat
writeln(x);
x:=x+1;
until x=10;
readln;
end.

.