Задача A. Супермаркет Имя входного файла: стандартный поток ввода Имя выходного файла: стандартный поток - id1486596720220903 от ГрустныйЛёшенька 03.09.2022 06:48

Question

Информатика: Задача A. Супермаркет Имя входного файла: стандартный поток ввода Имя выходного файла: стандартный поток вывода Ограничение по времени: 1 секунда Ограничение по памяти: 256 мебибайт Даша пошла с мамой в супермаркет. На входе она увидела цепочку из N тележек для покупок, причём каждая следующая тележка была вложена в предыдущую на глубину D. Какая длина была у всей цепочки, если длина одной тележки равна L? Формат входных данных В единственной строке через пробел записаны три целых числа N, L и D

ГрустныйЛёшенька · Accepted Answer

Var i,j,n: integer;
a: array[,] of real;
begin
write('n = '); readln(n);
setlength(a,n+1,n+1);
randomize;
writeln('исходная матрица:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(-20,20);
write(a[i,j]:4);
end;
writeln;
end;
//транспонирование матрицы
for i:=1 to n-1 do
for j:=i+1 to n do swap(a[i,j],a[j,i]);
//вывод на экран
writeln('транспонированная матрица:');
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
end.

n = 4
исходная матрица:
-5 16 -10 5
-4 -20 6 14
-2 10 -4 -7
-16 1 -9 13
транспонированная матрица:
-5 -4 -2 -16
16 -20 10 1
-10 6 -4 -9
5 14 -7 13

MOGZ ответил