Cоставьте программу запрашивающую предложение и выводящую на экран количество заглавных букв латинского алфавита во введённом тексте.

279

449

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

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

agulmira62

Информатика

4,5(70 оценок)

Var c: set of char; i, n: integer; s: string; begin c : = ['a'..'z']; writeln('введите текст: '); readln(s); n : = 0; for i : = 1 to length(s) do if s[i] in c then n : = n + 1; writeln('количество заглавных латинских букв: ', n); end. тестовое решение: введите текст: for i: =1 to n do begin x: =x^3-1 end; количество заглавных латинских букв: 15