var a,n:string; i:integer; begin readln(a); for i:=1 to length(a) do begin if a[i]<>' ' then n:=n+a[i] else begin writeln(n); n:=''; end; end; writeln(n) end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
