Предмет: Информатика,
автор: kotep33
Паскаль.
Помогите пожалуйста.
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.
Интересные вопросы
Предмет: Математика,
автор: mikaelmustafaye
Предмет: История,
автор: inftech82
Предмет: Русский язык,
автор: naruto132465
Предмет: География,
автор: lushai9
Предмет: Алгебра,
автор: Strella