Информатика, опубликовано 23.03.2019 03:00
Дана строка, слова в которой разделены пробелами. поменяйте местами самое длинное и самое короткое слово. тема строки. (packal abc.net версия 3.0 сборка 1157)
Ответ оставил: Гость
Var s,ss,s1,s2: string; p,p1,p2,max,min: integer; begin writeln('введите строку: '); readln(s); ss: =s+' '; max: =0; min: =255; p: =pos(' ',ss); while p> 0 do begin if p> max then begin max: =p; s1: =' '+copy(ss,1,p); end; if p< min then begin min: =p; s2: =' '+copy(ss,1,p); end; delete(ss,1,p); p: =pos(' ',ss); end; s: =' '+s+' '; p1: =pos(s1,s); p2: =pos(s2,s); if p1> p2 then begin delete(s,p1,max+1); insert(s2,s,p1); delete(s,p2,min+1); insert(s1,s,p2); end else begin delete(s,p2,min+1); insert(s1,s,p2); delete(s,p1,max+1); insert(s2,s,p1); end; s: =trim(s); writeln(s); end. пример: введите строку: поменяйте местами самое длинное и самое короткое слово и местами самое длинное поменяйте самое короткое слово
Ответ оставил: Гость
For k:= -1 to1 do ...Будет выполняться 3 раза; ++++++++++
for k: = 10 to 20 do ...Будет выполняться 11 раз; +++++
for k: =20 to 10 do ...Будет выполняться 0 раз; +++++++
k:= 5; r:=15; for i:= k+1 to r-1 do ...Будет выполняться 9 раз; +++++
k:= 5; r:= 15; for i:= 0 to k*r do ...Будет выполняться 76 раз; +++++++
k: = r ; for i:= k to r do ...Будет выполняться 1 раз. ++++++
правельно вот код для теста:
var i,n,k,r:integer;
begin
k:=r;
for i:=k to r do begin
n:=n+1;
writeln(n);
end;
end.
for k: = 10 to 20 do ...Будет выполняться 11 раз; +++++
for k: =20 to 10 do ...Будет выполняться 0 раз; +++++++
k:= 5; r:=15; for i:= k+1 to r-1 do ...Будет выполняться 9 раз; +++++
k:= 5; r:= 15; for i:= 0 to k*r do ...Будет выполняться 76 раз; +++++++
k: = r ; for i:= k to r do ...Будет выполняться 1 раз. ++++++
правельно вот код для теста:
var i,n,k,r:integer;
begin
k:=r;
for i:=k to r do begin
n:=n+1;
writeln(n);
end;
end.
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01