Question

ааааааааааааааа плиз помогите даю 35б
дано четырехзначное число. проверить на четность его последнюю цифру и на кратность 4 предпоследнюю срочно иначе мне яйца оторвут

Answer 1

Ответ:

var x:integer;

begin

 

 while (x<1000) or (9999<x) do

   begin

   write('Введите 4ехзначное число= '); readln(x);

   end;

   

 writeln; write('Число ',x mod 10);

 if x mod 2=0 then writeln(' чётно')

 else writeln(' нечётно');

 

 write('Число ',(x mod 100) div 10);

 if ((x mod 100) div 10) mod 4=0 then writeln(' кратно на 4')

 else writeln(' не кратно на 4');

end.