Регистрация
nik896
12.07.2021 21:12
Информатика
Есть ответ 👍

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

234
383
Посмотреть ответы 2

Ответы на вопрос:

artemsteam1234oz40fw
artemsteam1234oz40fw
4,8(69 оценок)
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.
4ev43yi3
4ev43yi3
4,6(51 оценок)

Приведена информация о 6 учениках. И по 4 предметам, по 2 из которых  у учеников нету 3(Русский язык и информатика)

Популярно: Информатика