SaveText.Ru

Без имени
  1. [21.10, 11:31] Александр: var n:string;
  2. B,M,V,i,D:integer;
  3. begin
  4. readln(n);
  5. B:=0;
  6. M:=0;
  7. D:=Length(n);
  8. for i:=1 to D do begin
  9. if ((n[i]>='a') and (n[i]<='z') and (n[i]<>' ')) then M:=M+1;
  10. if ((n[i]>='A') and (n[i]<='Z') and (n[i]<>' ')) then B:=B+1;
  11. end;
  12. V:=M+B;
  13. writeln(V, ' - количество всех');
  14. writeln((M*100) div V, ' - процент маленьких');
  15. writeln((B*100) div V, ' - процент больших');
  16. writeln(M, ' - количество маленьких');
  17. writeln(B, ' - количество больших');
  18. end.
  19. [21.10, 11:31] Александр: program Obratnie_slova;
  20. var
  21. n:string;
  22. S,D,E,i:integer;
  23. begin
  24. readln(n);
  25. E:=0;
  26. D:=Length(n);
  27.  for i:=D downto 1 do begin
  28.  E:=E+1;
  29.  if n[i]=' ' then begin writeln(copy(n,(i+1),E)); delete(n,i,(E)); E:=0; end;
  30.  end;
  31. writeln(n);
  32. end.
  33. [21.10, 11:31] Александр: program V_13;
  34.  
  35. var // объявление переменных
  36. n:string;  // строка
  37. S,D,E,i:integer;  // переменные
  38. begin
  39. readln(n);  // ввод в строку
  40. E:=0;  // приравниеваем к нулю
  41. D:=Length(n);  // считает длину строки n
  42.  for i:=D downto 1 do begin  // цикл с конца к началу
  43.  E:=E+1;  // счетчик знаков
  44.  if n[i]=' ' then begin writeln(copy(n,(i+1),E)); delete(n,i,(E)); E:=0; end;  //
  45.  end;
  46. writeln(n);
  47. end.
  48. [21.10, 11:31] Александр: program V_12;
  49.  
  50. var n:string; // Строка для ввода
  51. B,M,V,i,D:integer; // переменных
  52.  
  53. begin
  54. readln(n);
  55. M:=0; // приравниваем к нулю m и n
  56. B:=0;
  57. D:=Length(n); // поиск длинны
  58. for i:=1 to D do begin // цикл поиска маленьких и больших
  59. if ((n[i]>='a') and (n[i]<='z') and (n[i]<>' ')) then M:=M+1;
  60. if ((n[i]>='A') and (n[i]<='Z') and (n[i]<>' ')) then B:=B+1;
  61. end;
  62. V:=M+B;
  63. writeln(V,'- количество всех');
  64. writeln((M*100) div V, '% маленьких');
  65. writeln((B*100) div V, '% больших');
  66. writeln(M, ' - количество маленьких');
  67. writeln(B, ' - количество больших');
  68. end.
  69. [21.10, 11:31] Александр: var a:array[1..100] of integer;
  70.     i, z, n, max, min:integer;
  71. begin
  72.     readln(n);
  73.     max:=0; min:=10001
  74.     for i:= 1 to n do begin
  75.         readln(a[i]) //ввод массива
  76.         if a[i]>a[max] then
  77.             max:=i; //нахождение максимума
  78.         if a[i]<a[min] then
  79.             min:=i; // нахождение минимума
  80.     end;
  81.     z:=a[min]
  82.     a[min]:=a[max]; //замена макс на мин
  83.     a[max]:=z;
  84.     for i:= 1 to n do
  85.     writeln(a[i]) //вывод массива
  86. end.

Share with your friends:

Print