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

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

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

Question

Алека

10 июля, 15:54

+1

Ответы (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.