задача с суммой квадратов Опции

[vg2.0]

Помогите пожалуйста!!!

Задача: Напишите программу, запрашивающую с клавиатуры натуральное число и определяющую можно ли представить это число в виде суммы квадратов двух натуральных чисел.

или хотя бы подскажите как вычисляется сумма квадратов двух нат. чисел

Заранее Огромное Спасибо!!!

[volvo]

хотя бы подскажите как вычисляется сумма квадратов двух нат. чисел

Вот так:

c := sqr( a ) + sqr( B )

А вообще-то попробуй воспользоваться поиском, по-моему такие задачи уже были...

Например, вот эта: Натуральные числа

[Guest]

[quote=volvo,27.05.05 13:22]
Вот так:

c := sqr( a ) + sqr( B )

Да, но я должен вводить С, а в результате получить значения a и b.

[volvo]

По ссылке ходил? Которая в сообщении №2

[Guest]

По ссылке ходил? Которая в сообщении №2

По ссылке ходил, но толком ничего и непонял.
Помогите пожалуйста, с программкой, я только недавно начал изучать pascal, а программку на днях сдать надо.

[volvo]

Ну, разбирайся тогда с этим:

uses crt;
var
  n, i, rest: integer;
begin
  clrscr;
  write('n = '); readln(n);
  for i := 1 to trunc(sqrt(n)) do begin
    rest := n - sqr(i);
    if sqr(trunc(sqrt(rest))) = rest then
      writeln(sqrt(rest)0, '^2 + ', i, '^2 = ', n);
  end;

end.