igorich1376

if5

Dec 2nd, 2025
51
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.44 KB | None | 0 0
  1. ## //if5
  2. //var (a,b,c) := ReadInteger3;
  3. var (a,b,c) := (6,18,0);
  4. var (cnt_положит,cnt_отриц) := (0,0);
  5. if (a < 0) then cnt_отриц += 1;
  6. if (b < 0) then cnt_отриц += 1;
  7. if (c < 0) then cnt_отриц += 1;
  8. if (a > 0) then cnt_положит += 1;
  9. if (b > 0) then cnt_положит += 1;
  10. if (c > 0) then cnt_положит += 1;
  11. Println($'Положит: {cnt_положит}');
  12. Print($'Отрицат: {cnt_отриц}');
Advertisement
Add Comment
Please, Sign In to add comment