1. Информатика
  2. Склавиатуры вводят слово

Склавиатуры вводят слово и символ.составте программу которая: подсчитывает количество вхождений заданного символа

Noka1319 Noka1319    2   17.03.2019 23:20    0

Ответы
Volodyaaaa Volodyaaaa  25.05.2020 21:49

var a:string; 

b:char;

i,sum:integer;

begin

readln(a,b);

for i:=1 to length(a) do begin

if pos(b,a)<>0 then begin

sum:=sum+1;

delete(a,1,pos(b,a));

end;

end;

writeln(sum);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
mihanesterov mihanesterov  24.04.2020 15:52
Уведіть ціле число з діапазону 6-9 введіть значення словом ​...
Лессикаа Лессикаа  24.04.2020 15:52
Сообщение занимает 4 страницы по 40 строк и содержит 7200 байтов информации. Сколько символов в строке , если один символ весит 16 бит?...
умник1627 умник1627  27.09.2019 21:20
30 какой объем памяти необходим для хранения цифрового изображения,состоявшего из 400 пикселей,где каждый пиксель кодируется 32 битами? была отсканирована фотография 5 дюймов*3...
berezovskatanap09xfx berezovskatanap09xfx  27.09.2019 21:20
Дано: к=128×128 i=4кб найти...
fwooper fwooper  30.09.2019 08:20
Загадано число из промежутка от 64 до 128.какое количество вопросов необходимо задать для угадывания числа и какое количество информации при этом получится? , умоляю...
karolinamurzak karolinamurzak  30.09.2019 08:20
Скорость передачи информации по некоторому каналу связи равна 256 000. передачи файла через это соединения занело 2 минут.определите размер передачи файла в килобайтах...
The1eaten1choc The1eaten1choc  30.09.2019 08:20
1010001111(2) + 110110(2)= 1010001111(2) - 110110(2)= 1111(2) * 1011(2)=...
shaldinaalbina shaldinaalbina  18.05.2019 15:59
Сшифром цезаря на си. чтобы он работал #include #include #include char rot(char c,int r) { if(c a ||c z ) return c; if(c a ) return c; if(c z ) return c; return(c- a +r)%26+...
Tomiriszharasbaeva Tomiriszharasbaeva  18.05.2019 16:06
50 .напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 13. программа получает на вход количество чисел в последовательности,...
Lenaaaa111 Lenaaaa111  09.12.2021 14:04
Сколько будет 1892 в двоичной системе, объясните....

Популярные вопросы