Информатика, опубликовано 2018-08-22 21:31:05 by Гость
Паскаль. Помогите пожалуйста. 1)В программе нужно удалить все символы которые стоят на четных местах.
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.