Question

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

Answer 1

1)
   а)
Var A,B:integer;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
if (A mod B = 0)or(B mod A = 0) then WriteLn(1)
else WriteLn(7)
End.


   б)

Var
A,B:integer;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
WriteLn((A mod B)+1)
End.

2)

Var
N:integer;
Begin
Write('N = ');ReadLn(N);
if sqrt(N)=trunc(sqrt(N)) then WriteLn('YES')
else WriteLn('NO')
End.