Задана строка s="Bios is Basic Input-Output System". Получить на основе ее новую строку путем замены всех заглавных латинских букв на соответствующие им строчные. Найти число символов "t" в строке s. Результаты программы вывести в файл.
Решение:
Program sff;
const s:string='Bios is Basic Input-Output System';
var s1:string;
i,k:byte;
BEGIN
clrscr;
s1:='';
for i:=1 to length(s) do
begin
if s[i] in ['A'..'Z'] then s1:=s1+chr(ord(s[i])+32)
else s1:=s1 +s[i];
if s[i]='t' then k:=k+1;
end;
writeln(s1);
write('Количество букв Т=',k);
readln;
END.
Объяснение: Переводим прописные буквы в строчные через их код и вписываем в новую строку.
Далее вписываем остальные.
| 
