Question

Вводятся целые числа, окончание ввода цифра 0. Найти сумму отрицательных нечетных чисел. Найти произведения положительных чисел кратных 3. Предусмотреть, если таких чисел не было- вывести информационное сообщение. Задача Паскаль

Answer 1

Var k,sum,summ: Integer;
begin
summ:=1;
repeat
writeln('Введите число');
readln(k);
if (k mod 2<>0) and (k<0) then sum:=sum+k;
if (k>0) and (k mod 3=0) then summ:=summ*k;
until k=0;
if (sum=null) and (summ=1) then writeln('Нет таких чисел') else
begin
writeln('Сумма: ',sum);
writeln('Произведение: ',summ);
end;
end.

Answer 2

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

Вот пример решения данной задачи на Pascal:

pascalCopy code
program SumAndProduct;

var
  num, sumNegOdd, productPosMult3: integer;
  inputMessage: string;

begin
  sumNegOdd := 0;
  productPosMult3 := 1;

  writeln('Введите целые числа. Ввод завершается, когда введете 0.');

  repeat
    write('Введите число: ');
    readln(num);

    if num < 0 then // Если число отрицательное
    begin
      if num mod 2 <> 0 then // и нечетное
        sumNegOdd := sumNegOdd + num;
    end
    else if (num > 0) and (num mod 3 = 0) then // Если число положительное и кратно 3
      productPosMult3 := productPosMult3 * num;

  until num = 0;

  writeln('Сумма отрицательных нечетных чисел: ', sumNegOdd);

  if productPosMult3 = 1 then
    inputMessage := 'Подходящих чисел не было.'
  else
    inputMessage := 'Произведение положительных чисел, кратных 3: ' + IntToStr(productPosMult3);
    
  writeln(inputMessage);
end.

При выполнении программы вы сможете последовательно вводить целые числа, пока не введете 0. Затем программа выведет сумму отрицательных нечетных чисел и произведение положительных чисел, кратных 3. Если таких чисел не было найдено, программа выведет информационное сообщение об этом.