Можно ли организовать циклический вычислительный процесс на языке Pascal без использования операторов цикла?
13 Дек 2012, 22:03помогите дорешать задачу.
я смог только обрезать лишние пробелы и убрать последнии буквы в словах.
буду признателен.
program b5;
uses crt;
var str,str2,c: string;
i:integer;
begin
readln(str);
while pos(' ',str)<>0 do
delete (str,pos(' ',str),1);
str2:=str;
delete(str,1,length(str));
for i:=1 to length(str2) do begin
c:= copy(str2,1,pos(' ',str2)-1) ;
delete (c,length(c),1);
insert(' ',str,length(str));
insert(c,str,length(str));
delete(str2,1,pos(' ',str2));
insert(' ',str2,length(str2)+1);
end;
write('Преобразованная строка:');
write(str);
readln
end.
Помогите, пожалуйста, с решением. Фото задачи и моего решения ниже. Номер 20
25 Дек 2012, 13:53