Question

Даны 3 целых числа A B C. Значение чисел воодится с клавиатуры. Написать программу для решения следующей задачи. Вывести на экран неотрицательные числа (не меньше 0). тема: Логические основы программирования

Answer 1

var a,b,c:integer;

Begin

  read(a,b,c);

  if a>=0 then writeln(a);

  if b>=0 then writeln(b);

  if c>=0 then writeln(c);

End.