- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
....
for i:=1 to 4 do for j:=1 to 4 do begin a[i,j]:=b; b:=b-1; end;
for i:=1 to 4 do for j:=1 to 4 do if a[i,j]=16 then begin k:=i;l:=j; end;
for i:=1 to 4 do
for j:=1 to 4 do
begin
gotoxy(5+3*i,5+2*j);
write(a[i,j]);
end;
....
пятнашки чтоли реализовывал?
write('Apasati
апасрати
Я тоже могу, но говно там унылое в основном.
2,5 человека
а по гибким 5,25'' даже скучаю )