program Project1; uses crt; const //Разделители слов. D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13]; var S : String; i, Cnt, Len : Integer; begin repeat Writeln('Задайте строку:'); Readln(S); Len := Length(S); Cnt := 0; for i := 1 to Len do begin //Пропускаем разделители. if S[i] in D then Continue; //Отслеживаем начало слова. if (i = 1) or (S[i - 1] in D) then begin if S[i] in ['a', 'A'] then Cnt := Cnt + 1; end; end; Writeln('В заданной строке найдено ', Cnt, ' слов,'); Readln(S); until S <> ''; end.
1)Сидите ровно
2)Расстояние между монитором и глазами должно быть 45-75 см.
3)Освещение должно падать так же как и при писании с левой стороны, свет не должен быть сильно ярким или тусклым.
Ещё
Объяснение:
надеюсь