Предмет: Информатика,
автор: allen14rus
Программа Паскаль
Пользователь вводит число. Сколько раз из цифр числа можно составить число 23 - столько раз вывести "выведено число 23"
Ответы
Автор ответа:
0
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.
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.
Автор ответа:
0
Чуть-чуть ошибся паренек
Автор ответа:
0
На 30232 раза))00)
Автор ответа:
0
спешил за 22 баллами, в результате насмешил всех....
Автор ответа:
0
Прошу прощения, не понял задание) Переделаем
Автор ответа:
0
Исправил.
Похожие вопросы
Предмет: Математика,
автор: karibaevaainali
Предмет: Математика,
автор: ADELINAALMAS
Предмет: Қазақ тiлi,
автор: madinazeinylla
Предмет: Химия,
автор: LNQ
Предмет: Алгебра,
автор: TreshMaster