Учеба и наука

• Всего ответов: 1


Владимир
74-й в Учебе и науке
5.0 2 отзыва
read(a,b,c);
d:=0;
if a<0 then inc(d);
if b<0 then inc(d);
if c<0 then inc(d);
writeln('Кол-во отрицательных чисел =',d); 
{*****************************************}
{Или так, более универсально:                                }
{*****************************************}
for i:=1 to 3 do
begin
read(a);
if a<0 then inc(d);
end;
writeln(d);
март 9, 2012 г.

Похожие вопросы