Proc25. Описать функцию IsSquare($$K$$) логического типа, возвращающую True, если целый параметр $$K$$ ($$> 0$$) является квадратом некоторого целого числа, и False в противном случае. С ее помощью найти количество квадратов в наборе из 10 целых положительных чисел.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
program Proc25; Function IsSquare(K:Integer):Boolean; begin if k = Sqr(round(Sqrt(k))) then IsSquare:=True else IsSquare:=False; end; var i,N,Res:Integer; begin Res:=0; for i:=1 to 10 do begin Write('N :'); Readln(N); if IsSquare(N) then Inc(Res); end; Writeln(Res); end. |
Другие задачи из раздела Proc можно посмотреть здесь.
Комментарии:
Комментарии 1