Advertisement
Guest User

Untitled

a guest
Apr 8th, 2020
174
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.25 KB | None | 0 0
  1. Program abc;
  2. var
  3.     a,b:integer;
  4. begin
  5.     readln(a,b);
  6.     if(a > 0) or (b > 0) then writeln('Одно из чисел больше нуля, либо оба числа больше нуля')
  7.     else writeln('Оба числа меньше нуля');
  8. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement