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

Использовать цикл с предусловием.

На обычном паскале, не турбо.

Question

Лидуля

30 апреля, 07:58

+3

Ответы (1)

Знаете ответ?

Евмения · Answer 1

Program z1;

var s:integer; a:double;

begin

s:=0; a:=1;

while a0 do begin

readln (a) ;

if a<0 then s:=s+1

end;

writeln (s) ;

readln

end.