Первый вопрос не надо по возможности ​

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.

посадка дерева: 1.купить семя.

2.найти место для посадки.3.вскопать яму.4.посадить семя.5.закопать яму.переход улицы по светофору: 1.подойти к дороге (к светофору)2.посмотреть на цвет, который сейчас горит.3.дождаться нужного цвета.4.перейти дорогу.5.отправиться дальше.

s : = 1 ;

for i : = 1 to n do

  if a[i] mod 3 = 0 then

          s : = s * a[i];

writeln(s);

надо.

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 килобайт