Re: Wandystan: Re: Hej!

From: Paweł Ciupak <pawel-ciupak_usunto_at_o2.pl>
Date: Fri, 29 Aug 2008 20:27:09 +0200


Dnia 29-08-2008 o 20:04:55 Ojek <bartosz.mackiewicz_usunto_at_hot.pl> napisał(a):

> I przynajmniej nie zniknie odrazu po wykonaniu się.

?

A tymczasem, moja poprawiona wersja + sugestie Ojka:

program aborcjusz;
var

	x, y:integer;
	tajnehaslo:array[1..11] of char;

procedure struszynski(numer:byte);
begin

        write(tajnehaslo[numer]);
end;
begin

	tajnehaslo[1] := 'W';
	tajnehaslo[2] := 'Y';
	tajnehaslo[3] := 'P';
	tajnehaslo[4] := 'I';
	tajnehaslo[5] := 'E';
	tajnehaslo[6] := 'R';
	tajnehaslo[7] := 'D';
	tajnehaslo[8] := 'A';
	tajnehaslo[9] := 'L';
	tajnehaslo[10] := 'A';
	tajnehaslo[11] := 'C';
	for x := 100 downto 1 do
	begin
		for y := 1 to 11 do
		begin
			struszynski(y);
		end;
		writeln;
	end;

end.
-- 
Paweł Ciupak, pozdrawiam (z linuksa)

e-mail       >>  pawel-ciupak//o2.pl
jabber/xmpp  >>  pawel-ciupak//jabber.wp.pl
kurwa gg     >>  870173
Received on Fri 29 Aug 2008 - 11:27:15 CEST

This archive was generated by hypermail 2.4.0 : Wed 08 Jan 2020 - 17:31:24 CET