Помощь - Поиск - Пользователи - Календарь
Полная версия: задача с суммой квадратов
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
vg2.0
Помогите пожалуйста!!!

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

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

Заранее Огромное Спасибо!!!
volvo
Цитата(vg2.0 @ 27.05.05 13:12)
хотя бы подскажите как вычисляется сумма квадратов двух нат. чисел

Вот так:
c := sqr( a ) + sqr( B )

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

Например, вот эта: Натуральные числа
Guest
[quote=volvo,27.05.05 13:22]
Вот так:
c := sqr( a ) + sqr( B )


Да, но я должен вводить С, а в результате получить значения a и b.
volvo
По ссылке ходил? Которая в сообщении №2
Guest
Цитата(volvo @ 27.05.05 15:22)
По ссылке ходил? Которая в сообщении №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)3.gif0, '^2 + ', i, '^2 = ', n);
end;

end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.