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.
Спасибо
Ответ дал: Гость
на каком япе? вот пример решения на паскале abc.
program test;
var s: string;
begin
read(s);
write(s);
end.
Ответ дал: Гость
поскольку http: \\ftp. не бывает, то ftp: \\schools.ru\program.exe
Популярные вопросы