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

Ответы (1)

Лоренс 28.10.2024 4

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.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика: