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);