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

строки.

Question

Информатика

Вонифатий

4 августа, 03:22

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

строки.

+3

Ответы (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. Вывести четные символы

строки.