Определить, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа. Задание необходимо - id1755632020220721 от emin551 21.07.2022 01:02

Question

Информатика: Определить, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа. Задание необходимо выполнить в одной из доступных версий программы Pascal (PASCAL ABC.NET, PASCAL ABC, Turbo Pascal; допускается использование онлайн-компилятора).

emin551 · Accepted Answer

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
var m:=ReadInteger('число строк ');
var n:=ReadInteger('число столбцов ');
var a:array[,] of real; SetLength(a,m,n);
Randomize;
var p:=1.0;
for var i:=0 to m-1 do begin
    for var j:=0 to n-1 do begin
      a[i,j]:=89*Random+10;
      Write(a[i,j]:0:5,' ');
      if j mod 2=0 then p*=a[i,j]
      end;
    Writeln
    end;
Writeln(p)
end.

Тестовое решение:
число строк 4
число столбцов 3
83.48215 49.40392 38.47974
79.95518 85.86098 19.45080
34.86908 65.25898 51.15671
96.59641 24.22868 42.34227
36449203938146.9

MOGZ ответил