1×2^0+0×2^1+1×2^0+1×2^1+1×2^2
Вотрешение. Этонесоложно.
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
begin
var t:=1000;
var k:integer;
repeat
k:=ReadInteger('->');
t-=k
until t<0;
Writeln('Всё...')
end.
<u>Пример</u>
-> 453
-> 216
-> 39
-> 64
-> 312
Всё...
<em>Решение для "древних паскалей"</em>
var
k,t:integer;
begin
t:=1000;
repeat
Write('->'); Read(k);
t:=t-k
until t<0;
Writeln('Всё...')
end.
В ячейке A2 = 10,в ячейке B2 = 20, в ячейке С2 = 0 и в ячейке
D2 = 20
Следовательно подойдут варианты А и Б