SaveText.Ru

Инфа
  1. [4 пересланных сообщения]
  2.   Глеб Машенцев, 12 марта в 10:08
  3.  
  4.     [6 пересланных сообщений]
  5.     Глеб Машенцев, 12 марта в 10:06
  6.     Var st:string;
  7.     i:integer;
  8.     Begin
  9.      
  10.     writeln('Введите строку:');
  11.     read(st);
  12.     for i:=1 to Length(st)do begin
  13.     if st[i]='а' then st[i]:='б'
  14.     else if st[i]='А' then st[i]:='Б'
  15.     end;
  16.     writeln(st);
  17.     end.
  18.  
  19.     Глеб Машенцев, 12 марта в 10:06
  20.     Var st:string;
  21.     i:integer;
  22.     Begin
  23.     writeln('Введите строку:');
  24.     read(st);
  25.     for i:=1 to Length(st)do begin
  26.     if st[i]='а' then st[i]:='б'
  27.     else if st[i]='А' then st[i]:='Б'
  28.     else if st[i]='б' then st[i]:='а'
  29.     else if st[i]='Б' then st[i]:='А'
  30.     end;
  31.     writeln(st);
  32.     end.
  33.  
  34.     Глеб Машенцев, 12 марта в 10:07
  35.     Var st1,st2:string;
  36.     i:integer;
  37.     begin
  38.     writeln('Введите строку:');
  39.     read(st1);
  40.     st2:=st1;
  41.     for i:=length(st1) downto 1 do st2[i]:=st1[length(st1)-i+1];
  42.     if st1=st2 then writeln('Полиндром')
  43.     else writeln('Не полиндром');
  44.     end.
  45.  
  46.     Глеб Машенцев, 12 марта в 10:07
  47.     Var s, name, otch,fam:string;
  48.      n:integer;
  49.      begin
  50.      writeLn('Введите фамилию, имя и отчество:');
  51.      readln(s);
  52.      n := Pos(' ', s);
  53.      fam := Copy(s, 1, n-1);
  54.      Delete(s, 1, n);
  55.      n := Pos(' ', s);
  56.      name := Copy(s, 1, n-1);
  57.      Delete(s, 1, n);
  58.      otch:=s;
  59.      s:=name[1] + '.' + otch[1] + '. ' + fam;
  60.      writeLn(s);
  61.      end.
  62.  
  63.     Глеб Машенцев, 12 марта в 10:07
  64.     Var s:string;
  65.      n:integer;
  66.      begin
  67.      writeLn('Введите название файла:');
  68.      readln(s);
  69.      n := Pos('.', s);
  70.      if n=0 then s:=s + '.exe'
  71.      else begin
  72.      Delete(s, n, length(s));
  73.      s:=s + '.exe';
  74.      end;
  75.      writeLn(s);
  76.      end.
  77.  
  78.     Глеб Машенцев, 12 марта в 10:07
  79.     Var s,s1:string;
  80.      n:integer;
  81.      begin
  82.      writeLn('Введите путь к файлу:');
  83.      readln(s);
  84.      n:=1;
  85.      while n<>0 do begin
  86.      n := Pos('', s);
  87.      s1 := Copy(s, 1, n-1);
  88.      Delete(s, 1, n);
  89.      if n<>0 then
  90.      writeln (s1);
  91.      end;
  92.      
  93.      writeln (s);
  94.      
  95.      end.
  96.  
  97.   Глеб Машенцев, 12 марта в 10:08
  98.   По порядку
  99.  
  100.   Глеб Машенцев, 12 марта в 10:08
  101.   1-6
  102.  
  103.   Глеб Машенцев, 12 марта в 10:08
  104.  
  105.     [Пересланное сообщение]
  106.     Глеб Машенцев, 13 февраля в 14:17
  107.     Вы получили мою программу? Тогда соблюдите пару правил:
  108.     1. Всё комментарии были созданы для вас. Посмотрели-удалите!
  109.     2.Переменуйте переменные
  110.     3.В некоторых местах уберите или добавьте tab.
  111.     4.Если пересылаете кому-то, то вместе с этим отправьте эти правила

Share with your friends:

Print