Dreghorn
А ты случайно блок схему нарисовать не сможешь?) пожалуйста)
SmartCin4376
Не,извиняй это не ко мне,это звучит конечно звучит странно но нас в физ-мат лицее никогда не учили рисовать всякие блок схемы и тд,могу практически любую программу только написать
Answers & Comments
Pascal ABC
var
s,news:string;
k:longint;
begin
k:=0;
read(s);
s:=s+' ';
while s <> '' do
begin
if copy(s,1,pos(' ',s)) = ' ' then
begin
delete(s,1,pos(' ',s));
news:=news+' ';
end
else
begin
inc(k);
news:=news+inttostr(k)+'.'+copy(s,1,pos(' ',s));
delete(s,1,pos(' ',s));
end;
end;
writeln(news);
end.