в исходной строковой величине удвоить все символы,кроме символа "а"
10-11 класс
|
var s:string; i:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]='а' then write(s[i]) else write(s[i],s[i]);
end.
пожалуйста помогите.срочно нужно
Другие вопросы из категории
в паскале ребят=***********
Читайте также
шинная;
кольцевая;
линеиная;
звездообразная.
1) все перечисленные, кроме "кольцевая"
2) все перечисленные, кроме "шинная"
3) все перечисленные
4) все перечисленные, кроме "звездообразная"
5) все перечисленные, кроме "линейная"
набора «А, В, Е, К, М, Н, О, Р, С, Т, У, Х»), номер (трехзначное число от 000 до 999). При создании базы данных автомобильных номеров Петя решил хранить каждый номер в виде массива из 8 символов (два символа на номер региона, три символа на серию и три символа на номер), кодируя каждый символ с помощью однобайтной кодировки ASCII. Вася решил уменьшить объем хранимых данных и принял решение хранить каждый номер в виде трех чисел – одно число для номера региона, одно число для серии (представив все возможные серии в виде натуральных чисел) и одно число для номера. Каждое число Вася будет хранить отдельно, используя для его кодирования минимально возможное число бит. На сколько бит уменьшится объем памяти, необходимый для хранения одного произвольного номера, в варианте кодирования Васи по сравнению с вариантом кодирования Пети? В ответе укажите целое число.