Запись оставлена ро 25.03.2017 в 16:49
запустить | скачать | новая запись
- Var a, z :longint;
- Begin
- WriteLn('Введите любое число','a');
- ReadLn(a);
- z:=sqrt(a);
- WriteLn('Корень квадратный из числа равен.',z);
- end.
Отправка исправлений и поправок. (cоздать новую запись)
После отправки поправок вы сможете посмотреть различия между старой и новой записью.