** паскале, срочно 1) a и b натуральные числа. если а кратно b или b кратно a, то...

Question

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

Comments

Первую нужно двумя способами решить?

Answer 1

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.
.  

Comments

Спасибо, благодаря тебе ошибку нашёл у себя=)))

---

Даже две=))

---

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

---

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

---

Не за что=))

Answer 2

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.