Вывести 2 переменные в порядке в возрастания, или последовательность чисел от n do d?
<span>program matrica;
Var
i,j,n:integer;
a:array[1..50,1..50] of integer;
Begin
Writeln('Введите размерность матрицы:');
Readln(n);
for i:=1 to n do
begin
Writeln('Ввод ',i,' строки');
for j:=1 to n do
begin
Write('A[',i,',',j,']=');
Readln(A[i,j]);
end;
end;
writeln;
writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to n do
write(A[i,j],' ');
writeln;
end;
for i:=1 to n do
for j:=i to n do
if a[i,j]=a[j,i] then
Writeln(a[i,j],' i=',i,' j=',j);
End.</span>
Напиши свой вопрось по информатике
R=int(input("radius "))
h=int(input("vysota "))
s=3.14*r*h
print(s)