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

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

:)

В первой проге вместо b объявила d =))

спасибо)

Не за что=))

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.