Дана непустая строка S. Вывести четные символы

строки.

Question

Информатика

Кирик

24 октября, 07:47

Дана непустая строка S. Вывести четные символы

строки.

+5

Ответы (1)

Знаете ответ на вопрос?

Сергуна · Answer 1

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.

Дана непустая строка S. Вывести четные символыстроки.

Дана непустая строка S. Вывести четные символы

строки.