Определить процедуру, распознавающую полные квадраты.

Роза

Дано натуральное число n. Cреди чисел 1,2...n найти все те, которые можно представить в виде суммы квадратов 2-ух натуральных чисел. Определить процедуру, распознавающую полные квадраты.
7 ответов

Роза

программу нужно написать в Delphi в консольном приложении. Помогите пожалуйста.


Роза

for i:=1 to n do
 if (frac(sqrt(n))=0) then writeln(i);
Выводит на экран полные квадраты


Роза

Не выводит((((когда я ввожу число,окошко закрывается(


Роза

так это и есть консольные, он вывел и закрылся сразу


Роза

Не выводит((((когда я ввожу число,окошко закрывается(
В конце кода надо дописать: Read; - окошко не закроется до тех пор, пока пользователь не нажмёт какую-нибудь клавишу. Readln; - закроется, если нажать ENTER.


Роза

var i,j,m:integer;
 
begin
 
write('Vvedite 4islo:');
readln(m);
 for i:=1 to round(sqr(m))+1 do
 for j:=1 to round(sqr(m))+1 do
  if i*i+j*j=m then
    begin
      write('mogno! 4isla: ', i,'u ', j);
      readln;
      end;
  write('Nelzja');
  readln;
end.
сначала моя программа была такая, но в ней должна быть еще функция!((хотя она и без функции работает, но препод говорит, что она должна быть обязательно...а какая и куда ее писать я даже не знаю...О_оБлин.подскажите пожалуйста


Роза

спасибо всем большое)