Ответы
Ответ дал:
0
Не понял точно, что нужно делать, но вот.

Program KOREN;
Uses crt;
var P: real;
Begin clrscr;
writeln('П=1*4*9*16*25');
P:=sqrt(1*4*9*16*25);
write('sqrt(П) = ', p);
readln;
End.
Program KOREN;
Uses crt;
var P: real;
Begin clrscr;
writeln('П=1*4*9*16*25');
P:=sqrt(1*4*9*16*25);
write('sqrt(П) = ', p);
readln;
End.
Вас заинтересует
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад