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

zver35 zver35    3   25.08.2019 15:40    0

Ответы
Данил30576 Данил30576  05.10.2020 19:07
Var a:real;
begin readln(a);
 if frac(sqrt(a))=0 then write('Да')
                    else write('Нет');
end.
ПОКАЗАТЬ ОТВЕТЫ
naval2018 naval2018  05.10.2020 19:07
Program s;
 var i : integer;
begin
 readln(i)
 if frac(sqrt(i)) = 0 then write('Yes.')
 else write ('No.');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика