Дано четырехзначное число a. определить есть ли в нем цифра m. и сколько раз она встречается? записать на языке паскаль.

Var a,m,k,i:integer;
begin
write('a = ');
readln(a);
write('m = ');
readln(m);
k:=0;
for i:=1 to 4 do
 begin
 if a mod 10 = m then k:=k+1;
 a:=a div 10;
 end;
writeln('k = ',k);
end.

Пример:
a = 6726
m = 6
k = 2

var

 i, n:integer;

 price:real;

begin

  n := 20;

  price := 20.4;

  for i := 1 to n do

    writeln('Стоимость ', i:3, ' ед. товара составляет ', price * i:8:2, ' руб.');

end.

 

 

//вторая задача

var

  i, f, n:integer;

begin

  f := 453;

  n := 10;

  writeln('фунты    граммы');

  for i := 1 to n do

    writeln(' ', i:2, i * f :11);

end.

 

//третья задача

var

  i, n:integer;

  k:real;

begin

  n := 20;

  writeln('Введите курс '); readln(k);

  writeln('доллары    рубли');

  for i := 1 to n do

    writeln('  ', i:2, i * k:13:2);

end.

for (i = 0; i < kol; i++) {

cout « as[i].punkt_naznachenia « " ";

cout « as[i].nomer_reisa « " ";

cout « as[i].tip_samoleta « endl;

}

char poisk_samoletov[40];

cout « "Punkt naznachenia reisa " « endl;

cin » poisk_samoletov;

bool f = false;

for (i = 0; i < kol; i++)

if (strcmp(as[i].punkt_naznachenia, poisk_samoletov) == 0)

{

cout « "Nomer reisa ";

cout « as[i].nomer_reisa « endl;

cout « "Tip samoleta ";

cout « as[i].tip_samoleta « endl;

f = true;

}

if (!f) {

cout « "Net takogo punkta naznachenia reisa " « endl;

}

system("pause");

}

Объяснение: