Снова нужно помочь с Инфой Для умных Во 1 я не соображаю в инфе Во 2 мне в лень в этом всем разбираться Program Primer; Var N,result : real; Begin Writeln('Введите значения переменной N'); Write('N='); Readln(N); Result := sqr((4+N)*7); Writeln ('sqr((4+N)*7)', result:8:0); Readln; End. Запусти Паскаль, введи данную программу, получи результат, если N=2.
1764