var
a, b, x, s, p: integer;
begin
writeln(' Ввести х');
readln(x);
s := 0;
x := Abs(x); { защита от ввода отрицательных }
while x > 0 do
begin
s := s + x mod 10;
x := x div 10
end;
writeln(' Сумма цифр=', s);
end.
Напиши свое ФИО, подсчитай количество букв + 2 пробела = сумма * 16 бит (или на 2 байта) результат готов!
Если кодировка - 8 бит и на один символ выделяется 1 байт, то дальше простые арифметические операции:
54*42*12 = 27 216 байт ≈ 26.57 Kбайт, округляем в большую сторону и получаем 27 Кбайт.
телефон зонт спица стержень купол диск рукоядка
наушник
корпус
провод
микрофон
Да это правда
:))))
Не за что помочь