Const N = 100;
var
mas : array [1..N] of real;
sum : real := 0;
counter : integer := 0;
begin
for var i := 1 to N do begin
readln(mas[i]);
sum += mas[i];
counter += 1;
end;
writeln(sum/counter);
end.
букет
собрать цветы
выкинуть которые засохли
завернуть красиво
конец
var
month, sum: real;
begin
sum := 10000;
month := 0;
while (sum < 12000) do
begin
sum := sum + (sum / 100) * 2;
month := month + 1;
end;
writeln('Через ',month,' месяцев размер вклада превысит 12000 руб');
end.
2 байта = 16 бит => всего значений - 2^16=65536
-1 для нуля
65535
и получается диапазон -32768...32767
min - -32768
Заходишь в калькулятор, нажимаешь вид -> программист потом ставишь в систему счисления в зависимости от той которая тебе нужна, и пишешь число, нажимашь на другую систему и вуаля