Регистрация
Айфон11111
26.10.2021 17:38
Информатика
Есть ответ 👍

Сразу говорю, ответ 1800 неправильный​

104
496
Посмотреть ответы 1

Ответы на вопрос:

Lolkek3332
Lolkek3332
4,7(99 оценок)
//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

Популярно: Информатика