Program fff;
var c: Char; n, u, sum: Integer; begin write('Кол-во цифр для ввода: '); readln(n); for u := 1 to n do begin readln(c); sum := sum + Ord(c)-48; end; writeln('Кол-во введёных цифр = ', n); writeln('Сумма введёных цифр = ', sum);end.
1)8х=32 кб - так же переводим в биты 32кб=32*1024*8=262144 бит
8х=262144
х=262144 : 8
х=32768
2)1) 16х=128 кб - переведём кб в бит 128 кб = 128 *1024 * 8 = 1048576
дальше проще 16х=1048576
х=1048576 : 16
х=65536
Дано число
Abc
Надо из этого числа отделить каждую цифру
A:=abc div 100
b:= abc div 10 mod 10
c:= abc mod 10
Теперь надо вывести новое число
cba:= c*100+b*10+a
120n (руб) - стоимость всего мороженого
3800к (руб) - стоимость всего шоколада
120n + 3200k (руб) - потратил мальчик на всю покупку