Паскаль, ввести трёхзначное число

если сумма цифр числа чётная, то увеличить на 2, в противном случае уменьшить на 2

Question

Информатика

Анфия

26 октября, 22:48

Паскаль, ввести трёхзначное число

если сумма цифр числа чётная, то увеличить на 2, в противном случае уменьшить на 2

+1

Ответы (1)

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

Ишута · Answer 1

Program I_have_got_name;

var a:integer;

begin

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

readln (a) ;

if ((a mod 10) + (a mod 100 div 10) + (a div 100)) mod 2 = 0 then

writeln (a+2) else

Writeln (a-2) ;

end.

Паскаль, ввести трёхзначное числоесли сумма цифр числа чётная, то увеличить на 2, в противном случае уменьшить на 2

Паскаль, ввести трёхзначное число

если сумма цифр числа чётная, то увеличить на 2, в противном случае уменьшить на 2