SHARE
TWEET

Untitled

Xmas2019reg Apr 18th, 2019 96 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. PascalABC.NET
  2. ---------------------------------------------
  3. Определение числа. Чётное или нет.
  4. ---------------------------------------------
  5.  
  6. program DZ1;
  7.  
  8. var a,b:integer;
  9.  
  10. begin
  11. writeln('Введите число.');
  12. readln(a);
  13. b:= a mod 2;
  14. if b>0
  15. then
  16. writeln('Число нечётное')
  17. else
  18. writeln('Число чётное.');
  19. end.
  20. ---------------------------------------------
  21. Определения треугольника. Равнобедренный или нет.
  22. ---------------------------------------------
  23.  
  24. program DZ2;
  25.  
  26. var a, b, c:integer;
  27.  
  28. begin
  29. writeln ('Введите сторону A');
  30. readln (a);
  31. writeln ('Введите сторону B');
  32. readln (b);
  33. writeln ('Введите сторону C');
  34. readln (c);
  35. if (a < b+c) and (b < a+c) and (c < a+b)
  36. then
  37.  
  38. begin
  39. if (a=b) or (a=c) or (b=c)
  40. then
  41. writeln('Этот треугольник равнобедренный.')
  42. else
  43. writeln('Этот треугольник не равнобедренный.');
  44. end
  45. else
  46. writeln ('Сумма всех сторон треугольника должна составлять 180 градусов.');
  47. end.
  48. ---------------------------------------------
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top