Нужно решить на языке паскаль. изучаем string. 1.дан текст. найдите самое длинное слова и подсчитайте количество букв в найденном слове. 2.дан текст.вам нужно подсчитать количество заглавных букв в тексте.

//pascalabc.net 3.2 сборка 1318 //1 var   s,maxs: string;   i,max,j,len: integer; begin max: =-1; readln(s); var ars: =s.split; for i: =0 to ars.length-1 do begin len: =0;   for j: =1 to ars[i].length do     if (lowcase(ars[i][j])> ='a') and (lowcase(ars[i][j])< ='z') then         inc(len); if ars[i].length=max then     maxs+=chr(13)+ars[i]+' '+len; if ars[i].length> max then     begin       maxs: =ars[i]+' '+len;       max: =ars[i].length;     end; end; write(maxs); end. пример ввода: steins; gate is fine vn, 12345678910 пример вывода: steins; gate 10 12345678910 0 //2 var   s: string;   i,counter: integer; begin readln(s); for i: =1 to length(s) do   if (s[i]=upcase(s[i])) and (lowcase(s[i])> ='a') and (lowcase(s[i])< ='z') then   inc(counter); writeln(counter); end. пример ввода: simple text пример вывода: 4

може цикл ніколи не закінчуватися. тому що якщо умова циклу всегда є істиною, то цикл ніколи не перестане працювати. наприклад, 1 > 0 - ця умова всегда буде істиною.