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