Составить программку, дозволяющую найти, имеет ли число, введённое с клавиатуры целый

Составить программку, позволяющую найти, имеет ли число, введённое с клавиатуры целый корень( через оператор if)

Задать свой вопрос
Тимур
Язык?
Семён Иругов
Pascal
2 ответа
Program s;
 var i : integer;
begin
 readln(i)
 if frac(sqrt(i)) = 0 then write('Yes.')
 else write ('No.');
end.
Var a:real;
begin readln(a);
 if frac(sqrt(a))=0 then write('Да')
                    else write('Нет');
end.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт