Turbo Pascal
Прошу помочь
Задание:
С клавиатуры вводится слово в латинском алфавите. Необходимо переработать слово по заданному правилу. Переработанное слово вывести на экран монитора.
После каждой буквы исходного слова вставить заданную букву.
Прошу помочь
Задание:
С клавиатуры вводится слово в латинском алфавите. Необходимо переработать слово по заданному правилу. Переработанное слово вывести на экран монитора.
После каждой буквы исходного слова вставить заданную букву.
More Questions From This User See All
Answers & Comments
ar
s:string;
a:Char;
i:integer;
begin
write('Введите строку》');
read(s);
write('Введите символ》');
read(a);
for i:=1 to length(s)-1 do
write(s[i],a);
write(s[length(s)])
end.
sts,stf:string;
i,n:byte;
begin
writeln('Введите слово:'); readln(sts);
n:=length(sts);
for i:=1 to n do
begin
stf:=stf+sts[i];
if (i mod 1)=0 then stf:=stf+'@';
end;
writeln(stf)
end.