320 * 60 = 19200 байт в минуту
19200 * 20 = 38 4000 байт за 20 мин = 384 кб
Var
a,b,c,d:integer;
Begin
writeln('Введите цену тетради, карандаша и линейки соответственно');
read(a,b,c);
d:=a+b+c;
if d>200 then writeln('Баланс превышен');
End.
; assembler
mov ax, [a] ; ax = a
mov bx, 5 ; bx = 5
mul bx ; ax = 5*a
mov cx, ax ; cx = 5*a
mov ax, [a] ; ax = a
mov bx, [b] ; bx = b
add ax, bx ; ax = a+b
mov bx, ax ; bx = a+b
mov dx, 0
mov ax, 15 ; dx:ax = 15
div bx ; ax = 15/(a+b)
<span> add ax, cx ; ax = 5*a + 15/(a+b)
; result will be in ax</span>
0,01 гб = 10485,76 кб , 40960 бит = 5 гб