Составить программу, которая запрашивает числа и считает количество введенных отрицательных чисел, до тех пор, пока пользователь не введет 0.
Использовать цикл с предусловием.
На обычном паскале, не турбо.
Использовать цикл с предусловием.
На обычном паскале, не турбо.
Answers & Comments
var s:integer;a:double;
begin
s:=0;a:=1;
while a<>0 do begin
readln(a);
if a<0 then s:=s+1
end;
writeln(s);
readln
end.