Question

Для разных чисел вводимых с клавиатуры найдите сумму положительных не чётных.Написать программу на Паскале.

Answer 1

Program summ;
var
n, sum : integer;

begin
writeln('Вводите числа (введите 0 для выхода):');
sum := 0;
repeat
readln(n);
if ((n>0) and (n mod 2 <>0)) then
sum := sum+n;
until n=0;
writeln ('Сумма положительных нечётных чисел равна ', sum);
end.

Answer 2

Код на языке Pascal, который находит сумму положительных нечетных чисел, вводимых с клавиатуры:

program SumOfPositiveOddNumbers;
var
  number, sum: integer;
begin
  sum := 0;
  repeat
    write('Введите число: ');
    readln(number);
    if (number > 0) and (number mod 2 <> 0) then
      sum := sum + number;
  until number = 0;
  writeln('Сумма положительных нечетных чисел: ', sum);
end.

Программа предлагает пользователю ввести число с клавиатуры. Если число положительное и нечетное, то оно добавляется к переменной `sum`. Процесс ввода чисел продолжается до тех пор, пока пользователь не введет число 0. В конце программа выводит сумму положительных нечетных чисел, полученную в результате.

Пример работы программы:

Введите число: 5
Введите число: 10
Введите число: -3
Введите число: 7
Введите число: 0
Сумма положительных нечетных чисел: 9