Помогите с домашним заданием!! Номер 6.50

Помогите с домашним заданием!! Номер 6.50
Гость
Ответ(ы) на вопрос:
Гость
var x,y , i: integer; var a,b,k : integer; var an, bn : integer; answer1, answer2, answer3, answer4 : boolean; begin   writeln('Введите натуральное число:');   readln(x);   writeln('Введите цифру a:');   readln(a);   writeln('Введите цифру b:');   readln(b);   writeln('Введите число k:');   readln(k);    repeat   y:=x mod 10;   x:=x div 10;   i+=1;   if y = a then an+=1;   if y = b then bn+=1;  until x=0;    if an>0 then answer1:= true;  if bn=0 then answer2:= true;  if a>k then answer3:= true;  if (an>0) and (bn>0) then answer4:= true;  writeln('а) Определить, есть ли в нем цифра a: ', answer1);  writeln('б) Верно ли, что в нем нет цифры b: ', answer2);  writeln('в) Верно ли, что цифра a встечается в нем более k раз: ', answer3);  writeln('г) Определить, есть ли в нем цифры a и b: ', answer4); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы