Question

ПАСКАЛЬ, ПОМОГИТЕ! С использованием цикла WHILE ( без массива!!!) Дана последовательность целых чисел, признак окончания которой - 0. Найти: а) сумму положительных элементов последовательности б) кол-во отрицательных элементов в) произведение элементов последовательности, кратных К.

Answer 1

var a,b,c,e,k:integer;

begin

k:=9;//вставить любоое число

a:=-1;

while a<>0 do

begin

read(a);

if a>0 then b:=b+a;

if a<0 then c:=c+1;

if (a mod k = 0)and(a<>0) then

if e=0 then e:=a else e:=e*a;

end;

writeln('сумма положительных элементов = ',b);

writeln('кол-во отрицательных элементов = ',c);

writeln('произведение элементов, кратных ',k,' равнo ',e);

end.

если нужно , чтобы пользователь вводил К , то за место оператора к:=9; вставить read(k);

Answer 2

Конечно, я помогу! Ниже приведен пример кода на языке Паскаль для нахождения указанных величин:

pascalCopy code
program SequenceAnalysis;

var
  num, sumPositives, countNegatives, productK, K: integer;

begin
  sumPositives := 0;
  countNegatives := 0;
  productK := 1;

  writeln('Введите K:');
  readln(K);

  writeln('Введите последовательность целых чисел (для завершения введите 0):');
  readln(num);

  while num <> 0 do
  begin
    if num > 0 then
      sumPositives := sumPositives + num
    else if num < 0 then
      Inc(countNegatives);

    if (num mod K = 0) and (num <> 0) then
      productK := productK * num;

    readln(num);
  end;

  writeln('Сумма положительных элементов последовательности: ', sumPositives);
  writeln('Количество отрицательных элементов: ', countNegatives);
  writeln('Произведение элементов последовательности, кратных K: ', productK);
end.

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