Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Все лабораторные работы по паскалю / 4 лаб. Строки / Program4
.pas uses crt;
var s:string;
i:integer;
begin
clrscr;
write('Введите строку:');
readln(s);
for i:=1 to length(s) do
if (s[i]>='А')and(s[i]<='Я')
then s[i]:=lowcase(s[i])
else
if (s[i]>='а')and(s[i]<='я')
then s[i]:=upcase(s[i]);
write('Обработанная строка:');
writeln(s);
readln;
end.
var s:string;
i:integer;
begin
clrscr;
write('Введите строку:');
readln(s);
for i:=1 to length(s) do
if (s[i]>='А')and(s[i]<='Я')
then s[i]:=lowcase(s[i])
else
if (s[i]>='а')and(s[i]<='я')
then s[i]:=upcase(s[i]);
write('Обработанная строка:');
writeln(s);
readln;
end.
Соседние файлы в папке 4 лаб. Строки