• на паскале, срочно
    1) a и b натуральные числа. если а кратно b или b кратно a, то напечатать 1, иначе любое другое число. a)с is
    б) без if
    2)n натуральное. является ли оно полным квадратом? например n=36 'yes', n=40 'no'

Ответы 6

  • После if sqrt(N)=trunc(sqrt(N)) Вместо WriteLn; должно быть then =))
    • Автор:

      ayana
    • 6 лет назад
    • 0
  • :)
    • Автор:

      erik
    • 6 лет назад
    • 0
  • В первой проге вместо b объявила d =))
    • Автор:

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

      peaches
    • 6 лет назад
    • 0
  • Не за что=))
    • Автор:

      laney29
    • 6 лет назад
    • 0
  • 1)   а)Var A,B:integer;BeginWrite('A = ');ReadLn(A);Write('B = ');ReadLn(B);if (A mod B = 0)or(B mod A = 0) then WriteLn(1)else WriteLn(7)End.   б)VarA,B:integer;BeginWrite('A = ');ReadLn(A);Write('B = ');ReadLn(B);WriteLn((A mod B)+1)End.2)VarN:integer;BeginWrite('N = ');ReadLn(N);if sqrt(N)=trunc(sqrt(N)) then WriteLn('YES')else WriteLn('NO')End.
    • Автор:

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

Войти через Google

или

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

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

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