№1
Var
X:array [1..20,1..20] of integer;
N:integer;
i,j:integer;
S,T:integer;
Flag:boolean;
begin
writeln('Проверка матрицы на "магический квадрат".');
write('Введите размерность квадратной матрицы: ');
readln(N);
writeln('Введите поочередно элементы таблицы:');
for i:=1 to N do
for j:=1 to N do
begin
write('X[',i,',',j,']=');
readln(X[i,j]);
end;
writeln;
for i:=1 to N do
begin
for j:=1 to N do
write (X[i,j]:5);
writeln;
end;
S:=0;
for i:=1 to N do
S:=S+X[1,i];
Flag:=True;
for i:=1 to N do
begin
T:=0;
for j:=1 to N do
T:=T+X[i,j];
if T<>S then Flag:=False;
end;
for j:=1 to N do
begin
T:=0;
for i:=1 to N do
T:=T+X[i,j];
if T<>S then Flag:=False;
end;
T:=0;
for i:=1 to N do T:=T+X[i,i];
if T<>S then Flag:=False;
T:=0;
for i:=1 to N do T:=T+X[i,N-i+1];
if T<>S then Flag:=False;
if (Flag:=True) then writeln('Матрица является "магическим квадратом".')
else writeln('Матрица не является "магическим квадратом".');
readln;
end.
№2
program bykva;
const Glas=['а','е','и','о','у','ы','э','ю','я','А','Е','И','О ','У','Ы','Э','Ю','Я'];
var i,count: integer;
s: string;
begin
ReadLn(s);
count:=0;
for i:=1 to length(S) do
if s[i] in Glas then inc(count);
writeLn(count);
ReadLn;
end.
№3
program lab03;
var a, b: string;
k, i: integer;
begin write('text:');
readln(a);
write('slovo: ');
readln(b);
k := 0;
while pos(b, a) > 0 do
begin k := k + 1;
delete(a, pos(b, a), length(b));
end;
writeln(k);
readln;
end.
