Составить программу, позволяющую определить, имеет ли число, введённое с клавиатуры целый корень( через оператор if)
Составить программу, позволяющую определить, имеет ли число, введённое с клавиатуры целый корень( через оператор if)
Гость
Ответ(ы) на вопрос:
Гостьvar a:real;
begin readln(a);
if frac(sqrt(a))=0 then write('Да')
else write('Нет');
end.
Гостьprogram s;
var i : integer;
begin
readln(i)
if frac(sqrt(i)) = 0 then write('Yes.')
else write ('No.');
end.
Не нашли ответ?
Похожие вопросы