Turbo Pascal

dzieki za pomoc juz dzieki teu co napisales osiagnelem swoj cel pzdr

of byte;

Begin
clrscr;
Randomize;
For i:=1 To 6 Do
begin
For j:=1 To 12 Do
begin
T:6);
end;
writeln;
end;
readln;
End.

[/b]

Of integer;
i,max,min:integer;

Begin
clrscr;
Randomize;
For i:=1 to n do
begin
A);
end;
max:=A;

for i:=2 to n do
begin
if A;
if A;
...

				fora.pl - załóż własne forum dyskusyjne za darmo Powered by phpBB © 2001, 2002 phpBB Group Avalanche style by What Is Real © 2004