83

Помогите, пожалуйста!

brat2000 09 апреля 2023

Помогите, пожалуйста! Паскальдано четырехзначное число, заменить нулем максимальную цифру

категория: информатика

58

Uses crt; var a: integer; b: array[1… 4] of integer; max,i,k,t: integer; beginreadln (a); k: =1; repeatfor i: =k to k dob[i]: =a mod 10; a: =a div 10; inc (k); until a=0; max: =0; for i: =1 to 4 doif b[i]>max then begin max: =b[i]; t: =i; end; b[t]: =0; for i: =4 downto 1 dowrite (b[i]); end.

пользователи выбрали этот ответ лучшим

Знаете другой ответ?
Другие вопросы по информатике

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...