Решение задачи String 18

# include <iostream>
# include <windows.h>
# include <cmath>
# include <iomanip>
# include <fstream>
# define MAXSIZE  100

using namespace std;

int main()
{
	SetConsoleCP(1251);
	SetConsoleOutputCP(1251);
	
	char str[MAXSIZE] = "";
	
    ifstream in ("String18.txt");
    in.getline(str,sizeof(str));
    cout << "Дана строка:" << endl;
    cout << str << "\n";
			
	for (int i=0; i<strlen(str); ++i){

      if (islower(str[i])) str[i] = toupper(str[i]);
      else if (isupper(str[i])) str[i] = tolower(str[i]);
      
      if ('А' <= str[i] && str[i] <='Я') str[i] = str[i]+32;
      else if ('а' <= str[i] && str[i] <='я') str[i] = str[i]-32; 
	}
	cout << "Преобразованная строка:" << endl;
	cout << str << endl;
    system ("pause");
	return 0;
}

# -*- coding: utf-8 -*-
import random
import string

ru_letters = u"абвгдежзийклмнопрстуфхцчшщъыьэюяАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ"
en_letters = u"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
tj_letters = u"ғӣқӯҳҷҒӢҚӮҲҶ"

ru_Lower = u"абвгдежзийклмнопрстуфхцчшщъыьэюя"
en_Lower = u"abcdefghijklmnopqrstuvwxyz"
ru_Upper = u"АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ"
en_Upper = u"ABCDEFGHIJKLMNOPQRSTUVWXYZ"

N = random.randrange(1,10)
s_ru = random.sample(ru_letters, N)
print("RU:",s_ru)

N = random.randrange(1,10)
s_en = random.sample(en_letters, N)
print("EN:",s_en)

N = random.randrange(1,10)
s_tj = random.sample(tj_letters, N)
print("TJ:",s_tj)

N = random.randrange(1,10)
s_digit = random.sample(string.digits, N)
print("Digits:",s_digit)

s = s_ru + s_en + s_tj + s_digit + [' ',' ']
#print("Random:",s)
random.shuffle(s)
s = "".join(s)
print(s)

s_new = ""
for c in s:
    if (c in en_Lower) or (c in ru_Lower):
        c = c.upper()
    elif (c in en_Upper) or (c in ru_Upper):
        c = c.lower()
    s_new += c
print(s_new)
									

program String18;
var
  i:integer;
  S:string;
 
begin
 Write('S:');
 Readln (S);
 
 for i:=1 to Length(S) do
  begin
   if (ord(S[i]) in  [97..122,160..175]) then S[i]:=chr(ord(S[i])-32)
    else
     if (ord(S[i]) in  [224..239]) then S[i]:=chr(ord(S[i])-80)
      else
       if (ord(S[i]) in  [65..90,128..143]) then S[i]:=chr(ord(S[i])+32)
        else
         if (ord(S[i]) in  [144..159]) then S[i]:=chr(ord(S[i])+80);
  end;
 Writeln(S);
end.