Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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

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

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