Дана строка, состоящая из слов, разделённая пробелами и запятыми, определить длину самого короткого и самого длинного слова. написать программу в pascal.

284

441

Посмотреть ответы 2

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

ArinaM25

Информатика

4,4(39 оценок)

Var a,b,c: integer; p,n: string; begin readln(p) ; for a: =1 to length(p) do begin n: =copy(p,a,1); if (n=' ') or (n=',') then begin if b> c then c: =b; b: =0 end else b: =b+1; end; if c=0 then c: =b; writeln (c); end.

andreykakachnov

Информатика

4,6(40 оценок)

1 записать число а 2 умножить число а на а 3 если степень не равна 5, то сделать предыдущее действие, иначе следующее 4 результат

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

Темы

Получить
полный доступ

150 000+ пользователей

Оформить подписку