Вводится четырёхзначное число (xysz). Вывести сумму xy + sz. Начальные данные необходимо ввести с клавиатуры. - id1744401020230526 от кукареку18 26.05.2023 05:08

Question

Информатика: Вводится четырёхзначное число (xysz). Вывести сумму xy + sz. Начальные данные необходимо ввести с клавиатуры. паскаль

кукареку18 · Accepted Answer

Const
    n = 3;
    m = 3;

var
    i, j: integer;
    a, b: array[1..n, 1..m] of integer;

begin
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            a[i, j] := random(20) - 10;
            write(a[i, j]:3, ' ');
        end;
        writeln;
    end;
    writeln;

    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            if ((i + j) mod 2 = 1) and (a[i, j] < 0) then
                a[i, j] := sqr(a[i, j]);
            write(a[i, j]:4, ' ');
        end;
        writeln;
    end;
end.

Вводится четырёхзначное число (xysz). Вывести сумму xy + sz. Начальные данные необходимо ввести с клавиатуры. паскаль

MOGZ ответил