Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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 килобайт
Популярные вопросы