составить программу позволяющую удвоить все буквы а в строке
10-11 класс
|
Mastihina
11 янв. 2015 г., 12:04:35 (9 лет назад)
Pavloooo
11 янв. 2015 г., 14:43:48 (9 лет назад)
program gt;
var a:string;
l,i:longint;
begin
readln(a);
l:=length(a);
for i:=1 to l do
begin
write(a[i],a[i]);
end;
end.
4030
11 янв. 2015 г., 17:30:48 (9 лет назад)
var s,t: string;
i: integer;
begin
writeln ('Введите строку: ');
readln (s);
t:='';
for i:=1 to length(s) do
if s[i]='а' then t:=t+s[i]+s[i] else t:=t+s[i];
writeln (t);
end.
Ответить
Другие вопросы из категории
Читайте также
Составьте программу, которая заменяет все буквы "о" на символ "*" в строке s.
Использовать можно функции pos, length, copy, delete, insert.
Нужно составить программу с предусловием и постусловием!
Составить программу к.т. запрашивает буквы, пока не введут точку и находит количество букв "0".
1)составьте программу вычисления суммы чисел в диапазоне от 45 до 115 45+....+115
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE
Вы находитесь на странице вопроса "составить программу позволяющую удвоить все буквы а в строке", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.