Написать программу на паскале, которая находит сумму двухзначных нечетных чисел в
последовательности целых чисел. Программа получает на вход целые числа, количество
введенных чисел неизвестно, последовательность чисел заканчивается 0
последовательности целых чисел. Программа получает на вход целые числа, количество
введенных чисел неизвестно, последовательность чисел заканчивается 0
Ответ
0
(0 оценок)
0
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.