чтобы проверить, кратно ли число четырём, нужно написать такую проверку:
if (х mod 4 = 0)
это значит: "если остаток от деления числа х на 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.
Поделитесь своими знаниями, ответьте на вопрос: