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

Question

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

Comments

вы уверены что сами не хотите решить эту задачу?

---

не понимаю как решать)

Answer 1

Var
  i, k, n: integer;

begin
  for i := 1 to 3 do
  begin
    readln(n);
    if n < 0 then k := k + 1;
  end;
 
  writeln(k);
end.

Answer 2

//Постарался как можно проще
//Pascal ABC.NET v3.1 сборка 1219

Var
 a,b,c,k:integer;
begin
 read(a,b,c);
 if a<0 then k:=k+1;<br> if b<0 then k:=k+1;<br> if c<0 then k:=k+1;<br> writeln(k);
end.

Пример ввода:
-1
4
-6
Пример вывода:
2

Comments

спасибо большое!!!