1 символ - 5 бит. 145 символов - 725 бит
64=2^8
1 символ = 1 байт
512 символов = 512 байт
Uses crt;
var
sum,x,itog: real;
i,y: integer;
begin
i:=1;
itog:=0;
write ('Start summa: ');
readln (sum);
while (itog<sum) do
begin
write ('¹',i,': ');
i:=i+1;
readln (x);
write ('Kol-vo: ');
readln (y);
itog:=itog+y*x;
end;
if (itog>sum) then
writeln ('Itog: ',itog-y*x)
else
<span>writeln ('Itog: ',itog);
</span>end.
Проследим действия:
(3+4)х4:(8-6)=14
7х4:2=14
28:2=14
14=14
в чем сложность?:)