Задание:
Помогите, пожалуйста! Паскальдано четырехзначное число, заменить нулем максимальную цифру
Решение:
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.
Знаете другой ответ?