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

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.

Answer 3

Для решения этих задач на языке программирования Pascal, у нас есть две задачи. Давайте рассмотрим их по очереди и предоставим подробное объяснение для каждой из них.

Задача 1: Проверка на кратность

Даны два натуральных числа a и b. Наша задача - проверить, является ли a кратным b или b кратным a, и напечатать 1, если это условие выполняется, иначе - любое другое число.

Для решения этой задачи без использования оператора if, можно использовать оператор деления по модулю (%). Если a кратно b, это означает, что a % b равно 0, и наоборот, если b кратно a, то b % a равно 0.

Вот пример решения этой задачи на языке Pascal:

var
  a, b: Integer;
begin
  // Вводим значения a и b с клавиатуры
  Write('Введите значение a: ');
  ReadLn(a);
  Write('Введите значение b: ');
  ReadLn(b);

// Проверяем условие и выводим результат
  if (a mod b = 0) or (b mod a = 0) then
    WriteLn('1')
  else
    WriteLn('Любое другое число');
end.

В этом примере мы сначала вводим значения a и b с клавиатуры, затем проверяем выполнение условия с помощью оператора if и выводим результат на экран.

Задача 2: Проверка на полный квадрат

Дано натуральное число n. Наша задача - определить, является ли оно полным квадратом. Если n является полным квадратом, то мы должны напечатать 'yes', иначе - 'no'.

Для решения этой задачи, мы можем использовать операцию извлечения квадратного корня (Sqrt) и операцию возведения в квадрат (Sqr).

Вот пример решения этой задачи на языке Pascal:

var
  n: Integer;
begin
  // Вводим значение n с клавиатуры
  Write('Введите значение n: ');
  ReadLn(n);

// Проверяем условие и выводим результат
  if Sqrt(n) = Round(Sqrt(n)) then
    WriteLn('yes')
  else
    WriteLn('no');
end.

В этом примере мы сначала вводим значение n с клавиатуры, затем используем функцию Sqrt для вычисления квадратного корня из n. Затем мы проверяем, является ли полученный результат целым числом, с помощью функции Round. Если результат является целым числом, то число n является полным квадратом, и мы выводим 'yes', в противном случае выводим 'no'.

Надеюсь, эти объяснения помогут вам понять, как решить задачи на языке Pascal, соответствующие вашему запросу. Если у вас возникнут еще вопросы, пожалуйста, не стесняйтесь задавать их!