Ввести число. Если число отрицательное, то помножить его на-1. Потом выдать

Ввести число. Если число отрицательное, то помножить его на-1. Потом выдать на экран число и квадратный корень из числа.

Задать свой вопрос
1 ответ
Var a:integer;
begin
readln(a);
if alt;0 then a*=-1;
write(a,' ',sqrt(a));
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт