Question

Даны два числа. Если хотя бы одно из них кратно 4, то второе увеличить на 3. Это в Паскале. В принципе все понятно, но у меня не получается написать, что хотя бы одно из них кратно. Помогите плиз, даю 21 балл.

Answer 1

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (a, b) := ReadInteger2;

 if (a mod 4 = 0) or (b mod 4 = 0) then b += 3;

 Println(a, b)

end.

Числа можно ввести оба через пробел или по одному

Answer 2

Чтобы проверить, кратно ли число четырём, нужно написать такую проверку:

if (х mod 4 = 0) then...

Это значит: "если остаток от деления числа х на 4 равен нулю, то..."

Программа:

Program P;

var

 x,y: integer;

begin

 var s:='**** -=Alphaeus=- ****';  

 for var k:=1 to 22 do begin write(s[k]); sleep(47) end;

 writeln;writeln;

 writeln('Введите числа:');

 write('X = '); readln(x);

 write('Y = '); readln(y);

 if (x mod 4=0) or (y mod 4=0) then y:=y+3;  

 writeln('Результат:');

 writeln('X = ',x);

 writeln('Y = ',y);

end.

Answer 3

Конечно, я помогу вам написать код в Паскале для выполнения данной задачи. Вот пример:

pascalCopy code
program CheckMultiples;

var
  num1, num2: Integer;

begin
  Write('Введите первое число: ');
  Readln(num1);

  Write('Введите второе число: ');
  Readln(num2);

  if (num1 mod 4 = 0) or (num2 mod 4 = 0) then
  begin
    if num1 mod 4 = 0 then
      num2 := num2 + 3
    else
      num1 := num1 + 3;
      
    Writeln('Хотя бы одно из чисел кратно 4.');
    Writeln('Измененные значения: ', num1, ' и ', num2);
  end
  else
  begin
    Writeln('Ни одно из чисел не кратно 4.');
  end;

  Readln;
end.

Этот код сначала запрашивает у пользователя два числа, а затем проверяет, кратно ли хотя бы одно из них числу 4. Если это так, то соответствующее число увеличивается на 3, и выводится сообщение о том, что хотя бы одно из чисел кратно 4. В противном случае выводится сообщение о том, что ни одно из чисел не кратно 4.