Question

Дана программа: Program Primer; Var N,result : real; Begin Writeln('Введите значения переменной N'); Write('N='); Readln(N); Result := sqr((3+N)*3); Writeln ('sqr((3+N)*3)', result:8:0); Readln; End. Запусти Паскаль, введи данную программу, получи результат, если N=3. (В окошко для ответа запиши только числовое значение!)

Answer 1

Ответ:

324

Объяснение:

Answer 2

Давайте выполним программу с заданным значением N=3:

mathematicaCopy code
Program Primer;
Var
  N, result: real;

Begin
  Writeln('Введите значения переменной N');
  Write('N=');
  Readln(N);
  Result := sqr((3 + N) * 3);
  Writeln('sqr((3+N)*3)', result:8:0);
  Readln;
End.

При вводе значения N=3, программа должна вычислить результат и вывести его. Давайте произведем вычисления:

perlCopy code
N = 3
Result = sqr((3 + 3) * 3) = sqr(6 * 3) = sqr(18) = 18 * 18 = 324

Ответ: 324