tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу на pascal,
Напишите программу на pascal, которая определяет, сколько раз встречается заданный символ в введенной строке. заранее
fox3221
1 23.08.2019 23:40
0
Ответы
Viktoria20040401
05.10.2020 15:41
//PascalABC.Net 3.2
begin
var s:=readstring('Введите строку: ');
var ch:=readchar('Введите символ: ');
var count:=0;
for var i:=1 to length(s) do if s[i]=ch then count+=1;
write ('Символ встречается ', count, ' раз(а)');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
дашуся4
24.09.2019 07:17
Сор по биологии 1 четверть 7 класс ответы...
nikita030303b
16.12.2021 14:49
Что делать если после логотипа PS4 просто горит серый экран...
mmaxprophet
16.12.2021 14:46
Коректним записом діапазону є 1 ) A1:E12) 1A:1E3) A1-E14) 1a*1e...
jezv
16.12.2021 14:44
Создайте документ, состоящий из 2 горизонтальных фрэймов. В правом фрэйме разместите изображение, например компьютера. По нажатию на отдельных элементах компьютера во втором...
ДимаБум
16.12.2021 14:42
Для чего предназначены формы в OpenOffice Base? Для вывода данных в удобном формате Для ввода данных в удобном порядке Для представления конечной информации в удобном виде...
Julia13662004
16.12.2021 14:40
, задания написаны на украинском...
Lerochka0204
16.12.2021 14:36
Задан массив Интервал массива А(10) [-5;5] Найти отрицательные элементы и умножить их на три...
moldirkurmanbek
16.12.2021 14:33
напишите наименьшее трёхзначное число, для которого истинно выражение: НЕ (первая цифра нечётная) и НЕ (последняя цифра нечётная)...
tanyaNat82
16.12.2021 14:32
Сколько устройств, изображенных на рисунке, предназначены для ввода какого-либо из видов информации...
yasya142
16.12.2021 14:32
Согласно антропоцентрической концепции...
Популярные вопросы
Определите силу тяжести, действующую на пакет молока, если его масса 950г?...
1
8300000 м.кв перевести в ары и гектары...
2
Вкаком части россии елово пихтовые леса...
3
My mummy is the best cook сочинение...
2
Вчем заключаются особенности национального состава населения стран? с чем...
1
Кто,когда и при каких обстаятельствах дал величайшему из океанов земного...
2
Плита плиты плиточка плитка какие проверочные слова а какиепроверяемые...
2
Вчем видна « душа « татьяны? (3гл. 17-19, 5гл. 4-10) евгений онегин...
2
Расставить знаки препинания в предложении: я посылаю тебе эту вещь потому...
3
Назовите наиболее с вашей точки зрения полководцев второй мировой войны...
2
begin
var s:=readstring('Введите строку: ');
var ch:=readchar('Введите символ: ');
var count:=0;
for var i:=1 to length(s) do if s[i]=ch then count+=1;
write ('Символ встречается ', count, ' раз(а)');
end.