Программка ПаскальПользователь вводит число. Сколько раз из цифр числа можно составить
Программка Паскаль
Юзер вводит число. Сколько раз из цифр числа можно составить число 23 - столько раз вывести "выведено число 23"
1 ответ
Светлана Обрывкова
Program qq;
var a, count2, count3: integer;
begin
writeln('Введите число');
readln(a);
count2:=0;
count3:=0;
while agt;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 count2gt;count3 then
a:=count3
else
if count3gt;count2 then
a:=count2
else
a:=count2;
if alt;gt;0 then
while agt;0 do
begin
writeln('Выведено число 23');
a:=a-1;
end
else
writeln('Нельзя получить число 23 из цифр введённого числа');
end.
var a, count2, count3: integer;
begin
writeln('Введите число');
readln(a);
count2:=0;
count3:=0;
while agt;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 count2gt;count3 then
a:=count3
else
if count3gt;count2 then
a:=count2
else
a:=count2;
if alt;gt;0 then
while agt;0 do
begin
writeln('Выведено число 23');
a:=a-1;
end
else
writeln('Нельзя получить число 23 из цифр введённого числа');
end.
Ярослава Скорик
Вы запускать пробовали свою писанину? )))) Пробуйте для 30232
Генка Щелманов
Чуть-чуток ошибся паренек
Агата Нардова
На 30232 раза))00)
Полинка Мифтахова
торопился за 22 баллами, в результате насмешил всех....
Leonid
Прошу помилования, не сообразил задание) Переделаем
Leonid Oblinin
Исправил.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов