Эдик, вася, андрей и миша заняли первые четыре места в соревнованиях. на вопрос, какие они заняли места, - id160842220220307 от gusew7kaja 07.03.2022 06:56

Question

Информатика: Эдик, вася, андрей и миша заняли первые четыре места в соревнованиях. на вопрос, какие они заняли места, мальчики честно ответили: - эдик — ни первое и ни третье. - вася — второе. - андрей не проиграл мише. какие места заняли мальчики? в школьной столовой на первое можно заказать щи, суп или борщ, на второе — котлету или рыбу, а на третье — чай или морс. сколько вариантов обеда можно составить из указанных блюд? закончите составление дерева и покажите путь, который соответствует тройке «суп, котлета,

gusew7kaja · Accepted Answer

//PascalABC.NET 3.1 сборка 1239
const
    n = 10;
    m = 10;

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

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

    for i := 1 to n do
    begin
        f := false;
        for j := 1 to m do
        begin
            if not f and (a[i, j] mod 2 = 1) then begin
                a[i, j] := 2 * a[i, j];
                f := true;
            end;
            write(a[i, j]:3, ' ');
        end;
        writeln;
    end;
end.

MOGZ ответил