Question

Помогите пожалуйста! Напишите программу для Pasсal ABC.
Дано трехзначное число. Если первая цифра не больше второй и нечетная, то найти сумму цифр числа.
ДАМ 15 БАЛЛОВ

Answer 1

var a : integer;

begin

   repeat

       write('введите 3-х значное число: ');

       readln(a);

   until (a > 99) and (a < 1000);

   if (((a div 100) mod 2) > 0) and ((a div 100) < ((a mod 100) div 10)) then writeln(a div 100 + (a mod 100) div 10 + a mod 10);

end.