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

строки.

Question

Информатика

Ромася

15 августа, 21:42

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

строки.

+2

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

строки.