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

Question

Информатика

Александр

15 июля, 18:57

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

+3

Ответы (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.