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.
Спасибо
Ответ дал: Гость
понадобится 24 секунды.
Ответ дал: Гость
в си:
# include < stdio.h> # include < conio.h> void main () {
Популярные вопросы