Пользователь работал с каталогом
D:\ ФУТБОЛ\ЧМ\2018\РОССИЯ.
Сначала он поднялся на три уровня вверх, затем спустился в каталог ФОТО, после этого спустился в каталог ЛУЧШИЕ. Каков полный путь к каталогу, в котором оказался пользователь?

👇

Увидеть ответ

Ответ:

vladosik6448

15.01.2022

ответ: D:\ ФУТБОЛ\ЛУЧШИЕ

Начало - D:\ ФУТБОЛ\ЧМ\2018\РОССИЯ

Поднялся на 3 вверх - D:\ ФУТБОЛ\

После спуска в ЛУЧШИЕ: - D:\ ФУТБОЛ\ЛУЧШИЕ

4,4(94 оценок)

Открыть все ответы

Ответ:

TASHER228YMM

15.01.2022

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
for var a:=1 to 10 do begin
    Writeln('Длина стороны ',a,' см');
    for var b:=1 to 10 do
      Writeln('Вторая сторона ',b:2,', периметр ',2*(a+b):2,
          ', площадь ',a*b:3)
    end
end.

Результат
Длина стороны 1 см
Вторая сторона 1, периметр 4, площадь   1
Вторая сторона 2, периметр 6, площадь   2
Вторая сторона 3, периметр 8, площадь   3
Вторая сторона 4, периметр 10, площадь   4
Вторая сторона 5, периметр 12, площадь   5
Вторая сторона 6, периметр 14, площадь   6
Вторая сторона 7, периметр 16, площадь   7
Вторая сторона 8, периметр 18, площадь   8
Вторая сторона 9, периметр 20, площадь   9
Вторая сторона 10, периметр 22, площадь 10
Длина стороны 2 см
Вторая сторона 1, периметр 6, площадь   2
Вторая сторона 2, периметр 8, площадь   4
Вторая сторона 3, периметр 10, площадь   6
Вторая сторона 4, периметр 12, площадь   8
Вторая сторона 5, периметр 14, площадь 10
Вторая сторона 6, периметр 16, площадь 12
Вторая сторона 7, периметр 18, площадь 14
Вторая сторона 8, периметр 20, площадь 16
Вторая сторона 9, периметр 22, площадь 18
Вторая сторона 10, периметр 24, площадь 20
Длина стороны 3 см
Вторая сторона 1, периметр 8, площадь   3
Вторая сторона 2, периметр 10, площадь   6
Вторая сторона 3, периметр 12, площадь   9
Вторая сторона 4, периметр 14, площадь 12

Длина стороны 10 см
Вторая сторона 1, периметр 22, площадь 10
Вторая сторона 2, периметр 24, площадь 20
Вторая сторона 3, периметр 26, площадь 30
Вторая сторона 4, периметр 28, площадь 40
Вторая сторона 5, периметр 30, площадь 50
Вторая сторона 6, периметр 32, площадь 60
Вторая сторона 7, периметр 34, площадь 70
Вторая сторона 8, периметр 36, площадь 80
Вторая сторона 9, периметр 38, площадь 90
Вторая сторона 10, периметр 40, площадь 100

4,6(60 оценок)

Ответ:

thanksagainand

15.01.2022

Программа формирует новый массив со смещением в лево

Program sector;
const
n=10;
var
a,b:array [1..n,1..n] of integer;
z:real;
i,j,k: byte;
begin
randomize;
for i:=1 to n do begin
    for j:=1 to n do begin
        a[i,j]:=random (40);
        a[i,j]:=a[i,j]-20;
        write(a[i,j]:4);
    end;
    writeln;
    end;
z:=0;
for i:=1 to n do
    for j:=1 to i do
        z:=z+a[i,j];
z:=z/(n*n);
writeln('srednee = ',z);
for i:=1 to n do begin
    k:=1;
    for j:=1 to n do
        if a[i,j] > z then begin
           b[i,k]:=a[i,j];
           write(b[i,k]:4);
           k:=k+1;
        end;
    writeln;
end;
readln;
end.