SaveText.Ru

Без имени
  1. ====================
  2.  program n_1;
  3. var a,b,c,s,u:integer;
  4.  
  5. begin
  6.  
  7. write('Введите первое число>> ');
  8. readln(a);
  9. write('Введите второе число>> ');
  10. readln(b);
  11. write('Введите третье число>> ');
  12. readln(u);
  13.  
  14. s:=a+b+u;
  15. c:=a*b*u;
  16.  
  17. writeln('Сумма этих чисел = ',s);
  18. writeln('Произведение этих чисел = ',c);
  19. end.
  20. ====================================
  21. program n_2;
  22. var a,b,c,s,u:integer;
  23.  
  24. begin
  25.  
  26. write('Введите объем куба>> ');
  27. readln(a);
  28.  
  29.  
  30. s:=a*a*a;
  31. c:=6*a*a;
  32.  
  33. writeln('Объем куба = ',s);
  34. writeln('Произведение этих чисел = ',c);
  35. end.
  36. ===================================
  37. program n_3;
  38. var a,b,c,s,u:integer;
  39.  
  40. begin
  41.  
  42. write('Введите число>> ');
  43. readln(u);
  44.  
  45. a:= u div 100;
  46. b:= u mod 100 div 10;
  47. c:= u mod 10;
  48. s:=a+b+c;
  49.  
  50. writeln('Сумма чисел числа = ',s);
  51.  
  52. end.

Share with your friends:

Print