tehran
Dołączył: 03 Lut 2008
Posty: 14
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
Wysłany: Nie 0:04, 10 Lut 2008 Temat postu: program imie |
|
|
program imie;
var
a:byte;
begin
repeat
writeln('ktos');
a:=a+1; {co obieg petli zwiekszenie a o 1}
until a>5;{jesli zmienna a bedzie wieksza od 5 to program wypisze slowo
end. ktos}
Post został pochwalony 0 razy
|
|