Question

Помогите пожалуйста. Дам 100 баллов. ЗАДАНИЕ 2.​

Answer 1

Ответ:

Объяснение:

var

 num, num_work:integer;

 a1, a2, a3:integer;

begin

 

 //num:=912;

readln(num);

 

 num_work:=num;

 a1:=0;

 a2:=0;

 a3:=0;

 

 if ((num >= 100) and (num <= 999)) then begin

 

   a1:=num_work div 100;

   num_work:=num_work mod 100;

   

   a2:=num_work div 10;

   num_work:=num_work mod 10;

   

   a3:=num_work;

   

   if ((a1+a2+a3) mod 4 = 0) then writeln('Сумма цифр делится на 4') else writeln('Сумма цифр не делится на 4')

 

 end

 else writeln('Число - не трехзначное!!!');

end.