|
|
|
|
|
|
|
Вернуться
| 1 Маскин М.В. [skydos.blogspot.com], 08 августа 2010 г. 22:34:43 | |
ну еще можно на всякий случай улучшить условие
и написать что-то вроде
if (c=' ') and (s[d]<>'') inc(d);
|
|
|
| 2 СИДОРЧЕНКО КИРИЛЛ, 08 августа 2010 г. 22:20:03 | |
"ВРУЧНУЮ ОБРАБАТЫВАТЬ". Так что ли ? Я называю это "СИСТЕМА ДАТЧИКОВ"
var
c:char;
s:array[1..100]of string;
i,d:integer;
begin
d:=1;
while not eoln do
begin
read(c);
s[d]:=s[d]+c;
if c=' ' then inc(d);
end;
for i:=1 to d do writeln(s[i]);
readln;
readln;
end.
|
|
|
| 3 Маскин М.В. [skydos.blogspot.com], 07 августа 2010 г. 14:12:51 | |
|
вручную обрабатывать
|
|
|
Чтобы оставить сообщение необходимо зарегистрироваться и авторизоваться!
| | | |
