begin
var a := 123456;
var s := a.ToString;
var Sum := s.Aggregate(0, (s, x) -> s + x.toDigit);
Print(Sum, Sum / s.Length)
end.
С конца считаем
_ - Л, значит последняя Л
*_- А
_ - Л
_** - Д
_ - Л
*_** - Ж
_** - Д
*_ - А
АДЖЛДЛАЛ
68.27руб*7=477.89 руб стоит 7 товаров
68.27 руб стоит 1 товар
Var i,n,l: integer;beginfor i:=108 to 999 do beginif (i mod 9 =0)then writeln(i+'') end;end.
Ответ:
Входы: клавиатура, мышь
Выходы: монитор, принтер, колонки
Объяснение: