СРОЧНО!написать в паскаль авс программу, в которой с клавиатуры вводится предложение, состоящее из разделённых одним пробелом слов,каждое слово разделяется 1 пробелом, вывести самое короткое слово из него и написать сколько в нем букв. программу написать с помощью команд copy, str,val.
Var s,q:string; i,n,j,m,k,l:longint;begin Readln(s); m:=maxlongint; s:=+s+; for i:=1 to length(s) do if s[i]<> then begin if s[i-1]= then l:=i; if s[i+1]= then begin if m>length(copy(s,l,i-l+1)) then begin q:=copy(s,l,i-l+1); m:=length(q); end; end; end; Writeln(q);{Слово} writeln(m);{Кол. букв} end.
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «СРОЧНО!написать в паскаль авс программу, в которой с клавиатуры вводится предложение, состоящее из разделённых одним пробелом слов,каждое слово разделяется 1 пробелом, вывести самое короткое слово из него и написать сколько в нем букв. программу написать с помощью команд copy, str,val.» от пользователя КАМИЛА МАКАРЕНКО в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!