Дана программа:

Program Primer;

Var

A,result : real;

Begin

Writeln('Введите значения переменной A');

Write('A=');

Readln(A);

Result := sqr((3+A)*5);

Writeln ('sqr((3+A)*5)', result:8:0);

Readln;

End.

Запусти Паскаль, введи данную программу, получи результат, если А=1.

POOTISBIRD50    2   10.04.2020 15:45    2