(калькулятор) пуск всі програми стандартне калькулятор
A = в Edit1
b = в Edit2
Результат в Label1
var
a, b, c: real;
begin
a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
Label1.Caption := FloatToStr((a + b) / 2);
end;
Так как один байт=8 битам вот
840.000 бит:8=105.000 байтов
<span>var
</span><span><span> a,b,c:</span>integer;
</span><span><span> begin
</span><span> read(a,b,c);</span>
</span><span> writeln(a,'+',b,'+',c,'=',a+b+c);
</span><span> writeln(a,'*',b,'*',c,'=',a*b*c);
</span><span> writeln('(',a,'+',b,'+',c,')/3=',(a+b+c)/3:4:3);
</span><span><span> end.</span></span>