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