< >

Подсчитать количество отрицательных чисел среди трех введенных с клавиатуры.

 

Желательно в PascalABC

Ответы

Ответ дал: Veksha
0

var kol,a,b,c:longint;

begin

  read(a,b,c);

  if a<0 then kol:=kol+1;

  if b<0 then kol:=kol+1;

  if c<0 then kol:=kol+1;

  write(kol);

end.

Похожие вопросы
Русский язык
2 года назад
Составьте предложение со словосочетанием сухой листвой. Подчеркните главные члены предложения.
Русский язык
2 года назад
морфологический разбор слова каждую
Математика
8 лет назад
запишите какие фигуры на рисунке
Алгебра
8 лет назад
помогите упростить: sin^2 x/1-cos x-cos x
Математика
10 лет назад
Расстояние между Винни и Пяточком на прямой дорожке 200 метров. Скорость пятачка 40м/мин скорость Винни 50м/мин.какое расстояние может быть между ними через 2 минуты?
Математика
10 лет назад
У червні родина Іваненків протягом усього місяця відпочивала на морі,а родина Петренків поїхала туди в той самий час на 20 днів.На скільки днів довше відпочивали Іваненки?(У червні 30 днів)
Математика
10 лет назад
 Номер автомобиля состоит из двух двузначных чисел. Второе число получается из первого перестановкой цифр, а разность между первым и вторым числом равна сумме цифр каждого из них. Какой номер у
Физика
10 лет назад
С какой силой действует на опору рабочий массой 65 кг, равномерно поднимая на неподвижном блоке груз массой 40кг.