Найди два числа, если известно, что их сумма равна 29, а разность равна 17. -!
282
365
Ответы на вопрос:
Var a: array [0..9] of integer; n, min,max: integer; begin readln(n); min: =9; max: =0; while (n > 0) do begin inc(a[n mod 10]); if n mod 10< min then min: =n mod 10; if n mod 10> max then max: =n mod 10; n : = n div 10; end; for n : = 0 to 9 do if a[n] = 3 then writeln('в числе есть 3 одинаковые',n); writeln('максимальная цифра ',max); writeln('минимальная цифра ',min); end. тест для числа: 222778999 в числе есть 3 одинаковые 2 в числе есть 3 одинаковые 9 максимальная цифра 9 минимальная цифра 2
Популярно: Информатика
-
wenefep0712619.06.2023 14:19
-
Илона240717.08.2020 02:44
-
olyasmirnova317.03.2023 13:14
-
dashylasonimova12830.05.2022 01:49
-
amelkumjan29.03.2021 07:03
-
kgrdva29.06.2022 13:34
-
svetlanko200005.07.2022 20:01
-
Samisha08.06.2023 23:03
-
polisorb203.04.2021 21:28
-
Foret22822.10.2020 21:47