Question

Задано четырехзначное целое число. Составьте программу удвоения этого числа, если сумма его цифр является четным числом, и уменьшения числа в три раза, если сумма цифр нечетное число (pascal)

Answer 1

Ответ:

var numbers, elem, summa, save:integer;  

begin

 readln(numbers);  

 save := numbers;

 while numbers <> 0 do

 begin

   elem := numbers mod 10;  

   summa := summa + elem;  

   numbers := numbers div 10;  

 end;

 

 if (summa mod 2=0) then

   writeln(save * 2)

 else

   writeln(save / 3);

end.