Var a, b, c, min, max, mid: integer; f1, f2: Text;
begin Assign(f1, 'date.in'); Reset(f1); Read(f1, a, b, c); Close(f1); if a > b then begin max := a; min := b end else begin max := b; min := a end; if max > c then begin if min < c then mid := c else begin mid := min; min := c end end else begin mid := max; max := c end; writeln('Меньшее=', min, ' среднее=', mid, ' большее=', max); Assign(f2, 'date.out'); Rewrite(f2); Write(f2, min, ' ', mid, ' ', max); Close(f2) end.
Var n,p: Longint; i,k,x,sum,min,max,max2,kr3: Integer; Begin readln(n); p:=n; while p>0 do //находим число цифр в числе begin p:=p div 10; k:=k+1; end; p:=n; min:=9; for i:=1 to k do begin x:=p mod 10; if x mod 2=0 then begin sum:=sum+x; if x>max2 then max2:=x; end; if x<min then min:=x; if x>max then max:=x; if (x mod 3=0) and (x>0) then kr3:=kr3+1; p:=p div 10; end; writeln('Сумма четных цифр: ',sum); writeln('Минимальная цифра: ',min); writeln('Количество кратных трем: ',kr3); writeln('Разность максимальной и минимальной: ',max-min); writeln('Максимальная четная цифра: ',max2); end.
p - вс переменная. В нее заносим значение n i - счетчик цикла k - количество цифр в числе x - текущая цифра числа sum - сумма четных min - минимальная цифра max - максимальная цифра max2 - максимальная четная цифра kr3 - количество цифр, кратных 3:
238₁₆=568₁₀
100000₂=32₁₀
143₈=99₁₀