Question

Написать программу на паскале, которая находит сумму двухзначных нечетных чисел в
последовательности целых чисел. Программа получает на вход целые числа, количество
введенных чисел неизвестно, последовательность чисел заканчивается 0

Answer 1

var

a, s: integer;

begin

s :=0;

repeat

readln(a);

if (a mod 2 <> 0) and (a < 100) and (a > 9) then

inc(s, a);

until a = 0;

writeln(s);

end.