1. Есть натуральные числа N, M найти все меньшие за N натуральные числа,
квадрат суммы чисел которых равен M .
2. На натуралном отрезке [a,b] найти все пары взаимно-простых чисел.
Числа называют взаимно-простыми если они не имеют общих делителей.
Полная версия: Натуральные числа
1. Есть натуральные числа N, M найти все меньшие за N натуральные числа,
квадрат суммы чисел которых равен M .
2. На натуралном отрезке [a,b] найти все пары взаимно-простых чисел.
Числа называют взаимно-простыми если они не имеют общих делителей.
Цитата(-Дмитрий- @ 22.03.05 9:36)
1. Есть натуральные числа N, M найти все меньшие за N натуральные числа,
квадрат суммы чисел которых равен M.
квадрат суммы чисел которых равен M.
Это как понимать? Может быть все-таки "квадрат суммы цифр которых..."?
Если так, то выделяйте цифры числа N (это уже неоднократно решалось на форуме, поиск Вам поможет...) и подсчитывайте сумму их квадратов... Ну а потом - сравнивайте с M...
Код
uses wincrt;
var
m,i, m1, n: integer;
begin
m:= 256;
n:= 20;
if SQR(int(SQRT(M)))<> M then Writeln('m не квадрат')
else
begin
m1:= trunc(SQRT(m));
if n > m1 then n:= m1;
if m1/2 >= n then writeln('чисел нет')
else
for i:= (m1 div 2) to n - 1 do
writeln('(', i, ' + ', m1 - i, ')^2 = ', m);
end;
end.
var
m,i, m1, n: integer;
begin
m:= 256;
n:= 20;
if SQR(int(SQRT(M)))<> M then Writeln('m не квадрат')
else
begin
m1:= trunc(SQRT(m));
if n > m1 then n:= m1;
if m1/2 >= n then writeln('чисел нет')
else
for i:= (m1 div 2) to n - 1 do
writeln('(', i, ' + ', m1 - i, ')^2 = ', m);
end;
end.
Stream, обязательно сразу постить полностью готовые решения? Может, сначала дать человеку подумать?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.