Регистрация
дилирон1
19.02.2022 23:10
Информатика
Есть ответ 👍

Хелп непон смысл задания даже ​

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

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

anelyasabina20
anelyasabina20
4,6(12 оценок)

Объяснение:

первый вариант

Маргошка55
Маргошка55
4,5(51 оценок)
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.

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