<span>00100001=0*10^7+0*10^6+1*10^5+0*10^4+0*10^3+0*10^2+0*10^1+1*10^0
</span>32+1=33.
Ответ: 33.
Как-то так:
//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
Безопасный Интернет просто надо по стрелкам определять ....
12 Мбайт= 12 * 1024 кбайт
t=s/v
t=12*1024/4=3072 секунд=51.2 мин