Паскаль, ввести трёхзначное число если сумма цифр числа чётная, то увеличить на 2, в противном случае уменьшить на 2
Паскаль, ввести трёхзначное число
если сумма цифр числа чётная, то увеличить на 2, в противном случае уменьшить на 2
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы