Где ошибка!!!!!
var b,N:integer;
var d:integer;
var g,h:real;
begin
readln(N);
b:=0;
for d:=1 to N do
begin
h:=d;
if sqrt(h) mod 1 =0
then b:=b+1;
end;
write(' ',b);
end.
var b,N:integer;
var d:integer;
var g,h:real;
begin
readln(N);
b:=0;
for d:=1 to N do
begin
h:=d;
if sqrt(h) mod 1 =0
then b:=b+1;
end;
write(' ',b);
end.
More Questions From This User See All
Answers & Comments
Ответ:
Объяснение:
ошибка тут
if sqrt(h) mod 1 =0
оператор mod - возвращает остаток от деления (a mod b), причём a,b - целые.
В Вашем случае sqrt(h) - вернёт не целое число, а вещественное. Поэтому возникает ошибка совместимости типов
если нужно узнать целое ли число получается после корня, можно так
a:=sqrt(h)
a-trunc(a)
тут находим разницу между числом а и целой частью числа а.