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

!!!Напишите в PASCAL программу:
Даны три числа. Вывести на экран только отрицательные

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

Var a,b,c:integer;
begin
  writeln(Введите a,b,c); readln(a,b,c);
  if a<0 then writeln(a);
  if b<0 then writeln(b);
  if c<0 then writeln(c);
  if (a>=0) and (b>=0) and (c>=0) then writeln(Отрицательных нет);
end.