Program stroka; var S, S1: string:
I : byte;
Begin
write ('Введите строку'):
readin (S) ;
S1 :‾' ';
for i:=1 to length (s) do
if S(I) in ('A' ..'Z') then
S1:=S1+chr (ord(s[I])+ (ord('a')-(ord(a'A'
else
S1:=S1+S[I];
writeln (S1) ;
readln
end.
Подсчитать количество заглавных и строчных латинских букв в тексте, введенном пользователем

Sowa2006    1   15.12.2020 14:16    1