Программа Паскаль Пользователь вводит число. Сколько раз из цифр числа можно составить...

Question

Программа Паскаль
Пользователь вводит число. Сколько раз из цифр числа можно составить число 23 - столько раз вывести "выведено число 23"

Answer 1

Program qq;
var a, count2, count3: integer;
begin
  writeln('Введите число');
  readln(a);
  count2:=0;
  count3:=0;
  while a>0 do
  begin
    if a mod 10 = 2 then
      count2:=count2+1;
    if a mod 10 = 3 then
      count3:=count3+1;
    a:=a div 10;
  end;
  if count2>count3 then
    a:=count3
  else
    if count3>count2 then
      a:=count2
    else
      a:=count2;
  if a<>0 then
    while a>0 do
    begin
      writeln('Выведено число 23');
      a:=a-1;
    end
  else
    writeln('Нельзя получить число 23 из цифр введённого числа');
end.

Comments

Вы запускать пробовали свою писанину? )))) Попробуйте для 30232

---

Чуть-чуть ошибся паренек

---

На 30232 раза))00)

---

спешил за 22 баллами, в результате насмешил всех....

---

Прошу прощения, не понял задание) Переделаем

---

Исправил.