Начало
|
введите значения катетов
|
ввод a,b
|
g:=sqrt(a*a+b*b)
|
вывод g
|
конец
Я не понимаю что вы написали
У каждого современного музыканта есть свои песни и своё авторское право .Если человек захочет спеть песню и будет прославляться за счёт песни музыканта,музыкант может подать человеку на нарушение авторского право.Это называется -Плагиат.Но есть и другие цели Если музыкант разрешает её петь и переделывать,то Люди могут переводить песню на свои язык ,делать из неё ремиксы и многое другое
Const n=8;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do a[i,i]:=n-i+1;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:2);
writeln;
end;
end.
Пример:
8 0 0 0 0 0 0 0
0 7 0 0 0 0 0 0
0 0 6 0 0 0 0 0
0 0 0 5 0 0 0 0
0 0 0 0 4 0 0 0
0 0 0 0 0 3 0 0
0 0 0 0 0 0 2 0
0 0 0 0 0 0 0 1