Категория
Информатика, опубликовано 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.  пример: введите строку: поменяйте местами самое длинное и самое короткое слово и местами самое длинное поменяйте самое короткое слово
Ответ
Ответ оставил: Гость
Спнсгсгссшссшчвччччччсмшкиартаом
Ответ
Ответ оставил: Гость
Program n1;
var a,b: integer;
begin
readln(a,b);
write(a+b);
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.


Другие вопросы по информатике

Вопрос
Информатика, опубликовано 09.01.2019 16:01
✅ Ответов: 1 на вопрос по информатике: Дана строка, слова в которой разделены пробелами. поменяйте местами самое длинное и самое короткое слово. тема строки. (packal abc.net версия 3.0 сборка 1157)... ты найдешь на сайте. Также ты можешь добавить свой вариант ответа, если считаешь, что он не верен или твой ответ более полный. Пожалуйста, добавляй только правильные ответы.
Вконтакте Youtube