9 сыныптың есептерің! Мысалы:
program Oku;
var
s:string;
f,g:text;
i,k:integer;
begin
assign(f,’D.in’);
assign(g,’D.out’);
reset(f);
rewrite(g);
readln(f,s);
for i:=1 to length(s)-2 do
if (s[i]=’a') and (s[i+2]=’b') then inc(k);
writeln(g,k);
close(f);
close(g);
end
program Ferz;
uses
SysUtils;
Const N = 8; // Клеток
M = 8; // Ферзей
Type Queen = record
X,Y : Integer;
End;
Var A : Array[1..N, 1..N] Of Integer;
K : Array[1..M] Of Queen;
I,J,Q,X,Y : Integer;
Procedure ClearQueen;
Var I : Integer;
Begin
For I := 1 To M Do
Begin
K[I].X := 0; K[I].Y := 0;
End; End;
Procedure ShowQueen;
Var I : Integer;
Begin
For I := 1 To M Do
Осындай күрделі есептер?
Айдархан
пікір
