1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 var n: Longint; m, d, s: Integer; begin Write('Введите число: '); ReadLn(n); m:=n mod 10; while n>0 do begin d:=n mod 10; n:=n div 10; if m=d then Inc(s,d) else if m>d then begin m:=d; s:=d; end; end; WriteLn('Сумма наименьших цифр: ', s); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
