Автор: Bronislav

Bronislav — Sat, 23 Jun 2018 08:13:10 +0000

program string_17;//PascalABC.NET

begin
  var s := 'abcdefgijklmnopqrstuvwxyz ' +
           'абвгдежзийклмнопрстуфхцчшщъыьэюя';
  
  for var i := 1 to s.Length do
    if (s[i] in ['a'..'z']) or (s[i] in ['а'..'я']) then
      s[i] := s[i].ToUpper;
  
  s.Println;
end.

program string_17;//PascalABC.NET

begin

var s := 'abcdefgijklmnopqrstuvwxyz ' +

'абвгдежзийклмнопрстуфхцчшщъыьэюя';

for var i := 1 to s.Length do

if (s[i] in ['a'..'z']) or (s[i] in ['а'..'я']) then

s[i] := s[i].ToUpper;

s.Println;

end.

Комментарии: Решаем задачи Абрамян на Паскале. String17

Автор: Bronislav