Уже не помню, сколько времени я не пользовался этим блогом. Никак руки не доходили. Но вот нам задали очередную домашку, и, так как предыдущую работу я завалил, то поспешил написать задачу и выложить. Собственно вот:
Program ex1;
var s:string;i,k:integer;
begin
readln (s);
for i:=1 to length(s) do
begin
if s[i]=' ' then k:=i;
end;
writeln (k);
delete (s,k,length(s));
writeln (s);
end.
Честно говоря, она мне не показалась довольно трудной, а это верный признак того, что я делал что-то не так ^^
Ваш, вновь продолжающий свое дело, автор
Program ex1;
var s:string;i,k:integer;
begin
readln (s);
for i:=1 to length(s) do
begin
if s[i]=' ' then k:=i;
end;
writeln (k);
delete (s,k,length(s));
writeln (s);
end.
Честно говоря, она мне не показалась довольно трудной, а это верный признак того, что я делал что-то не так ^^
Ваш, вновь продолжающий свое дело, автор
Комментариев нет:
Отправить комментарий