Program aa; var i,count:integer; s : string; begin read(s); count:= 0; for i:=1 to length(s) do if s[i] = ' ' then count := count + 1; write(count); end.
Какой у вас компилятор?
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
