Program n_4; var x, a, b, c, s: integer; bedin writen ('нахождение суммы цифр трехзначного числа') write ('введите исходное число >>') ; readin (x); a:=x dir 100; - число сотен b:=x mod 100 div 10 ; - число десятков c:=x mod 10 ; - число единиц ПЕРЕВЕСТИ ​

GorkiyShokolaD    2   15.05.2020 18:35    8