Паскаль.
Помогите пожалуйста.
1)В программе нужно удалить все символы которые стоят на четных местах.
Ответы
Ответ дал:
0
uses crt;
var
s, f: string;
i: integer;
begin
write('введите строку: ');
readln(s);
for i:=length(s) downto 1 do
if i mod 2=0 then
delete(s,i,1);
writeln('результирующая строка: ',s);
end.
var
s, f: string;
i: integer;
begin
write('введите строку: ');
readln(s);
for i:=length(s) downto 1 do
if i mod 2=0 then
delete(s,i,1);
writeln('результирующая строка: ',s);
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад