Информатика, опубликовано 2018-08-22 19:09:32 by Гость
Дана непустая строка S. Вывести четные символы строки.
Ответ оставил Гость
Var
i:integer;
s,t:string;
begin
writeln (Введите строку);
readln(s);
i:=2;
while i begin
t:=t+s[i];
i:=i+2;
end;
writeln(t);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.