Филантроп ! Спасибо ! Тока немного не работает ! Посмотри !

[valerka92]

<--Описать функцию IsSquare(k) , логического типа бвозращающее true ,
Если целый параметр K (>0) является квадратом некоторого числа
и false в противном случае .
С ее помощью найти количество квадратов в наборе из 10 целых положительных чисел
!
-->
var a,i,c:integer;
function isSq(k:integer):boolean;
var oouble;
begin
isSq:=true;
if (k>=0) then
begin
o:=sqrt(k);
if (o-round(o))<>0 then
issq:=false;
end
else issq:=false;
end;
begin
c:=0;
for i:=1 to 10 do begin
write('Vvedite chislo: ');
read(a);
if isSq(a) then c:=c+1;
end;
writeln('count=',c);
readln;
end.

[Филантроп]

valerka92
Если уж тебе помогают будь добр не нарушай правил форума
1 - не кросспость
2-не создавай темы обращенные к конкретному пользователю
3-в название темы отражай суть вопроса
4-выделяй код тегами

[valerka92]

Ок Просто я новенький с правилами не знаком !