tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Паскаль. в заданной строке подсчитать
Паскаль. "в заданной строке подсчитать кол-во букв латинского алфавита" при строковой функции "length"
Виолета131
1 04.06.2019 06:20
0
Ответы
tim2003np0acpp
05.07.2020 10:02
S:string;
k, i:integer;
begin
readln(s);
for i:=1 to length(s) do
if (ord(s[i])>64) and (ord(s[i])<91) then k:=k+1;
if (ord(s[i]>95) and(ord(s[i])<123) hen k:=k+1;
writeln(k);
readln;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Соня135135
05.08.2019 20:30
Разгадайте кроссворд хранение информации...
MARZHIVANKINA
05.08.2019 20:30
Сообщение на тему хранение информации...
nastyonochka5237
04.03.2022 00:18
A, b, c-map (int, input().split()) if a==b and a==c and b==C: print( ia ) else: print( jog ) Ln:2 Col: 1...
mariyayakovleva1
04.03.2022 00:12
завтра открытый урок, придут 50 учетелей!!...
Зайчик010101
04.03.2022 00:12
Верные роботы Бориса Ивановича выстроились перед ним в шеренгу. Он выбирает тех, кто сегодня будет красить школьный забор. Остальные сыграют в футбол. Борис Иванович решил,...
Selebruty1
03.03.2022 23:26
Определит результат программы...
nacny2016
03.03.2022 23:10
НА Pyton Верные роботы Бориса Ивановича выстроились перед ним в шеренгу. Он выбирает тех, кто сегодня будет красить школьный забор. Остальные сыграют в футбол. Борис Иванович...
Gumashova
03.03.2022 22:53
ПАСКАЛЬ ЛЕГКИЙ var s,n: integer; begin s := 2; for n := 2 to 5 do s := s + n*2; writeln(s); end. Найдите S паже...
hilka2
03.03.2022 22:48
При переходе на локальную учетныю запись сохранятся ли данные?...
ahmedov2007
03.03.2022 22:39
Какие области науки затрагивает цифровизация музыки?...
Популярные вопросы
Издвух городов навстречу друг другу выехали одновременно грузовая со скоростью...
1
Нужно 15 слов на орфограмму о,е,ё после шипящих и ц в окончаниях существительных....
1
Сейчас 20ч20мин,на сколько часов и минут часть суток которая осталась ....
1
Рівняння: 0.29x+0.78x-2.1x+0.4x=15,75...
1
Які вади вікторіанської доби знайшли відображення у творі аліса в країні...
2
Найдите первообразную для функции f(x) f (x)=4 x 3 f(x) =cosx f(x)=x+1 f(x)=...
3
Ilook at the zebra.it is eating grass. it doesn t see the cheetah. i m very...
2
Составьте предложение из этих слов: состояние человек малейший интерес к...
2
Какая статья идет за загрезнение окружающей природы и какое наказание за...
3
Автомобиль должен был проехать 1200 км с запланированной скоростью. после...
1
k, i:integer;
begin
readln(s);
for i:=1 to length(s) do
if (ord(s[i])>64) and (ord(s[i])<91) then k:=k+1;
if (ord(s[i]>95) and(ord(s[i])<123) hen k:=k+1;
writeln(k);
readln;
end.