Вопрос по информатике:
ИНФОРМАТИКА !!! ПОМОГИТЕ!!!!!!
составить программу в паскале, в которой с клавиатуры вводятся 2 текстовых выражения, вычисляется и печатается длина каждого из них. В первом выражении все буквы "а" заменяются на "о", Во втором выражении все буквы "К" заменяются на ""л
- 09.10.2017 10:33
- Информатика
- remove_red_eye 6849
- thumb_up 24
Ответы и объяснения 2
begin
writeln('1 строка:');
readln(s1);
writeln('2 строка:');
readln(s2);
l1:=length(s1);
l2:=length(s2);
writeln('Длина 1-ой строки = ',l1);
writeln('Длина 2-ой строки = ',l2);
for i:=1 to l1 do
if (s1[i]='А')or(s1[i]='а') then s1[i]:='о';
for i:=1 to l2 do
if (s2[i]='К')or(s2[i]='к') then s2[i]:='л';
writeln('Изменённые строки:');
writeln(s1);
writeln(s2);
end.
Пример:
1 строка:
АБВГДабвгд
2 строка:
Ку-ка-ре-ку
Длина 1-ой строки = 10
Длина 2-ой строки = 11
Изменённые строки:
оБВГДобвгд
лу-ла-ре-лу
- 01.01.1970 00:00
- thumb_up 44
Внимание! Если программа не работает, обновите версию!
begin
var s1:=ReadlnString('Строка-1:');
var s2:=ReadlnString('Строка-2:');
Writeln($'Длина 1-й строки {s1.Length}, второй строки {s2.Length}');
s1:=s1.Replace('а','о'); Writeln('Строка-1: ',s1);
s2:=s2.Replace('К','л'); Writeln('Строка-2: ',s2)
end.
Пример
Строка-1: А роза упала на лапу Азора
Строка-2: Карл у Клары украл кораллы
Длина 1-й строки 26, второй строки 26
Строка-1: А розо уполо но лопу Азоро
Строка-2: ларл у ллары украл кораллы
- 01.01.1970 00:00
- thumb_up 6
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.