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

Question

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

Answer 1

58

sega2version

10 марта 2023

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.

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

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: