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.