Все числительные в стихотворении даны в двоичной системе счисления:
1100(2) = 2^3+2^2 = 8+4 = 12(10)
101(2) = 2^2+2^0 = 5(10)
100(2) = 4(10)
10(2) = 2(10)
<span>Я пологаю вы работаете с Exel.
Для начала напротив клетки "Площадь", вычислите площать вставив функцию суммы.
В
след клетке сложите весь объём так, вставкой математической функции,
потом выделив графу глубины и все данные используйте функцию MAX
ПОтом выделеите все клетки напротив "напор" и используйте функцию MIN</span>
Program z20; Var n, sum, i:integer; a: array [1..1000] of integer;Begin write('Введите кол-во чисел = '); readln(n); for i:=1 to n do begin write('Число [', i, '] = '); readln(a[i]); end; sum:= 0; for i:=1 to n do if (a[i] mod 5 = 0) and (a[i] mod 3 <> 0) then sum:= sum + a[i]; writeln('Сумма чисел = ', sum);End.
Как-то так:
//fpc 3.0.0
program HelloWorld;
var
total: integer; // результат суммирования
ent, last: integer; // ввод, подсчет
begin
total := 0; // начальная сумма
// 30 можно поменять на любое число, чтоб цикл не шел вечно. А если надо вечно, то поменять условие на 1 < 2
while total <= 30 do
begin
// просим число
write('Enter number: ');
readln(ent);
// получаем только 4-х значные
if (ent < 1000) or (ent > 9999) then
Continue;
// берем последнюю цифру
last:= ent mod 1000;
last:= last mod 100;
last:= last mod 10;
// складываем
total:= total + last;
// выводим результат
writeln(total);
end;
end.
Результат можно посмотреть тут: https://rextester.com/ENTY66578
В одном килобайте 1024 байт. В одном байте 8 бит. Итого
16 кбайт=16*1024*8бит=131072бит
Ответ: 131072 бит
