Натуральные числа, простенькие задачи! не могу решить Опции

[-Дмитрий-]

1. Есть натуральные числа N, M найти все меньшие за N натуральные числа,
квадрат суммы чисел которых равен M .






2. На натуралном отрезке [a,b] найти все пары взаимно-простых чисел.
Числа называют взаимно-простыми если они не имеют общих делителей.

[volvo]

1. Есть натуральные числа N, M найти все меньшие за N натуральные числа,
квадрат суммы чисел которых равен M.

Это как понимать? Может быть все-таки "квадрат суммы цифр которых..."?

Если так, то выделяйте цифры числа N (это уже неоднократно решалось на форуме, поиск Вам поможет...) и подсчитывайте сумму их квадратов... Ну а потом - сравнивайте с M...

[Stream]

Код

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.

[volvo]

Stream, обязательно сразу постить полностью готовые решения? Может, сначала дать человеку подумать?