Var N,result : real; Begin Writeln('Введите значения переменной...

Question

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

Answer 1

Ответ:

sqr((1+N)*4)     400

Подсказка:

в конце программы должен быть"."

Поставь как лучший плиз)