На паскале, срочно 1) a и b натуральные числа. если а кратно b или b кратно a, то напечатать 1, иначе любое другое число. a)с is б) без if 2)n натуральное. является ли оно полным квадратом? например n=36 'yes', ...
На паскале, срочно
1) a и b натуральные числа. если а кратно b или b кратно a, то напечатать 1, иначе любое другое число. a)с is
б) без if
2)n натуральное. является ли оно полным квадратом? например n=36 'yes', n=40 'no'
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
.
Не нашли ответ?
Похожие вопросы