Введено трехзначное число. Если сумма его цифр нечетна, то увеличить число вдвое.Помогите пожалуйста
Введено трехзначное число.
Если сумма его цифр нечетна, то увеличить число вдвое.
Помогите пожалуйста
Гость
Ответ(ы) на вопрос:
Гостьvar n,x,y:integer;
begin
readln(n);
y:=n;
while y>0 do
begin
x:=x+n mod 10;
y:=y div 10;
end;
if x mod 2=0 then n:=n*2;
writeln('Ответ: ',n);
end.
Не нашли ответ?
Похожие вопросы