Соберите программу на языке Паскаль. Вывести на экран сумму цифр целого числа m>1

read(n);

s = str(n);

n1 : = int(s[1]);

n2 : = int(s[2]);

n3 : = int(s[3]);

 

if (n1+n2+n3) mod 2 = 0 then writeln("сумма чисел четная")

 

qbasic

? "введите число"

input a

a: 2=b

if b=int(b) then 1 else 2

1 ? "это число четное" : goto 3

2 ? "это число не четное" 

3 end

надо.

10000 байт перевести в килобайты 

10000 байт перевести в мегабайты (мг)

600000 байт перевести в кигобайт (кб)

решение

1 килобайт = 2^10 = 1024 байт > 1 байт=1/2^10 килобайт

1 мегабайт = 2^20 = 1048576 байт > 1 байт = 1/2^20 мегабайт

приставка киго не существует, по этому принимаю буквенное обозначение кб

тогда

10000 байт = 9,765625 килобайт

10000 байт = 0,00953674 мегабайт

600000 байт = 585,9375 килобайт

Данные про первоначальное состояние нам вообще не нужны, излишни кол-во символов = объем / объем_одного_символа объем = 2 мбайт = 2 * 1024 * 1024 * 8 бит кол-во символов = 2 * 1024 * 1024 * 8 бит/ 16 бит = 1024*1024 символов = 1 048 576 символов