посчитайте составить программу.Вводятся 2 числа a и b. Где а- натуральное число, b-число от 1 до 9. С помощью цикла найти Как узнать сколько раз число b встречается внутри числа а. Пример:а=3464 b=4Результат 2 (раза)Через Паскаль. Var Begin Readln и тд

program z1;

var a,b,k: integer;

begin

k:=0;

write ('a = ');

read(a);

write ('b = ');

read(b);

while a > 0 do

begin

if a mod 10 = b then k:=k+1;

a:=a div 10

end;

write('Результат ',k)

end.

Вводим числа

Цикл с предусловием

Если последняя цифра числа а равна числу b, то значение k увеличиваем на 1

Изменяем значение а, на целый результат деления на 10

Вывод значения k

mod - остаток от целочисленного деления

div - целочисленное деление