Дано слово s1. получите слово s2, образованное четными буквами слова s1.

Nawrik34digma Nawrik34digma    1   31.05.2019 12:20    7

Ответы
allthesinners allthesinners  01.10.2020 15:51
Var a,w:string; b:integer;
begin
readln(a);
for b:=1 to length(a) do
begin
If b mod 2 >0 then
w:=w+copy(a,b,1);
end;
writeln(w);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика