Строки. преобразовать прописные латинские буквы в строчные

[Antonio_getscool]

Дана строка . Преобразовать в ней все прописные латинские буквы в строчные

[RUSt88]

короче пиши по всем своим задачам на мыло добазаримся

и это, зачем столько постов делать, в одном нельзя чтоль было?

[fenix-elite]

Сделаю, почти даром, пиши в Асю

[sllh_111]

вот, если только я всё правильно понял.

uses crt;
var s:string;
    i:integer;
begin
clrscr;
write ('s:');readln(s);
for i:=1 to length(s)do
     begin
       if ord(s[i]) in [65..90] then
       s[i]:=chr(ord(s[i])+32)
       else if ord(s[i]) in [97..122] then
       s[i]:=chr(ord(s[i])-32)
       else if ord(s[i]) in [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)
       else if ord(s[i]) in [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 s[i]='Ё' then s[i]:='ё'
       else if s[i]='ё' then s[i]:='Ё';
     end;
write(s);
readln;
end.

[RUSt88]

Преобразовать в ней все прописные латинские буквы в строчные

а нам код дают

else if ord(s[i]) in [224..239] then
       s[i]:=chr(ord(s[i])-80)
       else if s[i]='Ё' then s[i]:='ё'
       else if s[i]='ё' then s[i]:='Ё';

я поржал....

[Himka]

Программа на Delphi:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
 S: string;
 N: integer;
 I: integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
 write('Stroka: ');
 readln(S);
 N:=length(S);
 for I:=1 to N do
 begin
  if (S[I]>='A') and (S[I]<='Z') then
     byte(S[I]):=byte(byte(S[I])+32);
 end;
 writeln('Izmenennaya stroka: ');
 writeln(S);
 readln;
end.