Напишите программу к задаче. Найти количество отрицательных чисел, вводить пока не будет...

Question

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

Answer 1

1) Программа будет запрашивать ввод новых чисел, пока он не введёт число 3:

var i,count,n: Integer;
begin
while i<>3 do
begin
writeln('Введите число');
readln(n);
if n<0 then inc(count);<br>i:=n;
end;
writeln('Кол-во: ',count);
end.

2) Программа будет запрашивать ввод чисел, пока отрицательные числа в сумме не будут равны числу 3:

var count,n: Integer;
begin
while count<>3 do
begin
writeln('Введите число');
readln(n);
if n<0 then inc(count);<br>end;
writeln('Кол-во: ',count);
end.