Нррпртилрарлпльрбммрьмьмьпрлпдплпрлпль
<span>Pascal<span>1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
<span>const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
n,i,j:byte;
begin
repeat
write('Размер матрицы от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Матрица');
for i:=1 to n do
begin
for j:=1 to n do
begin
if j=i then a[i,j]:=n-i+1
else a[i,j]:=0;
write(a[i,j]:3);
end;
writeln;
end;
end.</span></span></span>
Наверное это биология она довольно интересная.
Bonjour cher ami!
Venez vite Kiev, il ya une grande. Voici incroyablement belle. Vous verrez beaucoup de monuments et eglises.Vous pouvez visiter l'endroit le plus unique, le Golden Gate.
Viens, je suis en attente pour vous de visiter, au revoir.