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.

Answer 2

Я могу помочь вам написать программу на паскале, которая находит сумму двухзначных нечетных чисел в последовательности целых чисел. Вот один из возможных способов решения этой задачи:

program SumOddDigits;
var
  n, sum, digit: integer;
begin
  sum := 0; // инициализируем сумму нулем
  readln(n); // читаем первое число
  while n <> 0 do // пока число не равно нулю
  begin
    digit := n mod 10; // находим последнюю цифру числа
    if (digit mod 2 = 1) and (digit >= 10) then // если цифра нечетная и двузначная
      sum := sum + digit; // добавляем ее к сумме
    n := n div 10; // отбрасываем последнюю цифру числа
  end;
  writeln('Сумма двузначных нечетных цифр равна ', sum); // выводим результат
  readln(n); // читаем следующее число
end.

Эта программа использует цикл while и операции деления и остатка от деления для обработки каждого числа в последовательности. Вы можете найти больше информации о языке паскаль и его синтаксисе на сайтах [GeeksforGeeks](https://www.geeksforgeeks.org/pascal-triangle/) и [Stack Overflow](https://stackoverflow.com/questions/505391/write-a-program-that-sums-the-sequence-of-integers-as-well-as-the-smallest-in-t). Надеюсь, это было полезно для вас. Спасибо за обращение к Bing.