программа которая умножает каждую букву в предложении на 3
Ответы на вопрос
Ответил Csgonet2
1
Ответ:
ВАЖНО!
Это программа написанная на Pascal которая удвоит каждую букву в слове, иные символы оставит без изменения.
uses crt;
const bk=['A'..'Z','a'..'z','А'..'я','Ё','ё'];
var s:string;
i:byte;
begin
write('Введите слово: ');
read(s);
for i:=length(s) downto 1 do
if s[i] in bk then insert(s[i],s,i);
write(s)
end.
Новые вопросы