Пусть a=3, b=5, c=7. Какие значения будут иметь эти переменные в результате выполнения последовательности - id1350501320210502 от arsen7076ovwzre 02.05.2021 15:25

Question

Информатика: Пусть a=3, b=5, c=7. Какие значения будут иметь эти переменные в результате выполнения последовательности операторов: а)   a:=a+1; b:=a+b; c:=a+b; a:=sqrt(a)    Решение: a=3+1=4, b=4+5=9, c=4+9=13, a= {корень квадратный из} 4 =2.    ответ: а=2, b=9, c=13; б)   b:=b+a; c:=c+b; b:=1/b*c; ответ: а= , b= , c= ; в)   p:=c; c:=b; b:=a; a:=p; c:=a*b*c*p; ответ: а= , b= , c= ; г)   x:=a; a:=b; b:=c; c:=x; a:=sqrt(a+b+c+x-2); ответ: а= , b= , c= ;

arsen7076ovwzre · 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 ответил