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