Pascal. Введено трёхзначное число. Если сумма его цифр нечетна, но увеличить чисто вдвое

Question

Информатика

Эммануил

28 октября, 08:03

Pascal. Введено трёхзначное число. Если сумма его цифр нечетна, но увеличить чисто вдвое

+4

Ответы (1)

Знаете ответ на вопрос?

Правдина · Answer 1

Var a, one, dec, hun:integer;

begin

writeln ('Введите число') ;

readln (a) ;

one:=a mod 10; dec: = (a mod 100) div 10; hun:=a div 100;

if (one+dec+hun) mod 2 0 then a:=a*2;

writeln ('Ответ: ', a) ;

readln

end.