Дана непустая строка S. Вывести четные символы строки.
Дана непустая строка S. Вывести четные символы
строки.
Гость
Ответ(ы) на вопрос:
Гостьvar
i:integer;
s,t:string;
begin
writeln ('Введите строку');
readln(s);
i:=2;
while i<=length(s) do
begin
t:=t+s[i];
i:=i+2;
end;
writeln(t);
end.
Не нашли ответ?
Похожие вопросы