Есть ответ 👍

Какой выравнивание осуществляется за счёт увеличения пробела

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

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

лорею
4,4(100 оценок)

Яне понял вопроса. опиши всё по подробнее.

Program slovo; const symbols = [ ' ' , '; ' , ': ' , '-' , '? ' , '! ' , '.' , ',' ]; var s : string;     i : byte;     n : integer; begin   writeln ( 'введите строку' );   readln (s );   for i : = 1 to length (s ) do begin     if (s [i ] in symbols ) and not (s [i - 1 ] in symbols ) then n : =n + 1;   end;   writeln ( 'в строке ' ,n , ' слов' );   readln; end.

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