• ПРОГРАММА НА PASCAL!

    Дано натуральное число m представить в виде сумме квадратов двух натуральных чисел. Выдать сообщение, если такое представление невозможно

Ответы 6

  • И строку if m<0 then write('Вы ввели некорректное число') else  лучше заменить на И строку if m<=0 then write('Вы ввели некорректное число') else 
    • Автор:

      cello
    • 6 лет назад
    • 0
  • тогда ноль тоже не будет считать
    • Автор:

      niki95
    • 6 лет назад
    • 0
  • все понял, спасибо )
    • Автор:

      brennan65
    • 6 лет назад
    • 0
  • var i,n,k,m: integer;    priz: boolean;begin  write('N = ');  readln(n);  priz:=true;  for i:=1 to round(sqrt(n)) do  begin    k:=n-i*i;    if (k mod 10) in [1,4,5,6,9] then    begin      m:=round(sqrt(k));      if m*m=k then      begin        writeln('число ',n,' равно сумме квадратов чисел ',i,' ',m);        writeln(n,' = ',i*i,' + ',m*m);        priz:=false;        break;      end;    end;  end;  if priz then  writeln('число ',n,' не равно сумме квадратов двух чисел');en
    • Автор:

      dutchess
    • 6 лет назад
    • 0
  • Последняя строка не вошла - end.   На тестовой задаче :   N = 369число 369 равно сумме квадратов чисел 12 15369 = 144 + 225
    • Автор:

      leapitts
    • 6 лет назад
    • 0
  • Programm Pozitiv;varm,m1,m2 ,result:real;beginclrscr;write('Введите число');Read(m);if m<0 then write('Вы ввели некорректное число') elsebeginm1:=m*m;m2:=m1;result:=m1+m2;write('Ответ:',result);end;end.
    • Автор:

      woods
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years