решите задачу. Беседуют трое друзей: Белокуров, Рыжов и Чернов. Черноволосый сказал Белокурову „Любопытно, - id1864560920210223 от Transylvania1 23.02.2021 06:07

Question

Информатика: решите задачу. Беседуют трое друзей: Белокуров, Рыжов и Чернов. Черноволосый сказал Белокурову „Любопытно, что один из нас белокурый, другой - черноволосый, третий - рыжий, но ни у кого цвет волос не соответствует фамилии . Определите цвет волос мальчиков Эта задача по информатике

Transylvania1 · Accepted Answer

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=MatrixRandom(3,2,-99,99);
Writeln('Массив А');
for var i:=0 to 2 do begin
    for var j:=0 to 1 do Write(a[i,j]:4);
    Writeln
    end;
var b:=MatrixRandom(3,2,-99,99);
Writeln('Массив B');
for var i:=0 to 2 do begin
    for var j:=0 to 1 do Write(b[i,j]:4);
    Writeln
    end;
var c:array[0..2,0..1] of real;
Writeln('Результирующий массив');
for var i:=0 to 2 do begin
    for var j:=0 to 1 do begin
      c[i,j]:=a[i,j]*b[i,j]/10; Write(c[i,j]:7:1)
      end;
    Writeln
    end
end.

Тестовое решение
Массив А
-91 -93
-62   9
-97   6
Массив B
-64 18
57 -34
-65 -30
Результирующий массив
582.4 -167.4
-353.4 -30.6
630.5 -18.0

MOGZ ответил