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.

Answer 2

1)
var a,b:integer;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
if (a mod b=0) or (b mod a=0) then writeln (1) else writeln (5);
readln;
end.

2

var   N: integer;

   begin
  write(' N = ');
  readln(N);  
   if sqrt(N)=trunc(sqrt(N))
then
writeln('yes') else writeln ('no');
readln;
end.
.