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

Question

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

Answer 1

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

Comments

Благодарю!

---

Не за что. Успехов!

Answer 2

Var a,b,c:integer;
begin
writeln('Введите три числа');
readln(a,b,c);
if a<0 then write(a , ' ');<br>if b<0 then write(b, ' ');<br>if c<0 then write (c);<br>end.