begin
var a := 123456;
var s := a.ToString;
var Sum := s.Aggregate(0, (s, x) -> s + x.toDigit);
Print(Sum, Sum / s.Length)
end.
Алгори́тм — набор инструкций, описывающих порядок действий исполнителя для достижения некоторого результата.
Да, поместятся.
2 ГБ - 2000 мб.
151*3=453 мб.
Поместится :)
Для перевод в двоичную просто делим на 2, а остаток записываем во вторую колонку. Когда остается единица, то выносим ее так же во второй столбик и читаем СНИЗУ ВВЕРХ.
Для перевод из двоичной в десятичную мы над числом начиная с правого проставляем цифры, начиная с нуля. Это будет степенью двойки, на которую будет умножаться соответствующая цифра двоичного представления числа. Просто складываем, вычисляем.
Для примера я взяла число 123.
var
a: array[0..9] of integer;
k, i: integer;
begin
k := 0;
for i := 0 to 9 do
begin
readln(a[i]);
if a[i] > 12 then k += 1;
end;
writeln(k);
end.