Program Alina;
uses crt;
const
a=200;
b=300;
var i, n, k: integer;
begin
k:=0;
for i:=a to b do
if i mod 7 = 0 then k:=k+1;
writeln('Всего ',k,' чисел, кратных 7');
end.
<em>// PascalABC.NET 3.3, сборка 1549 от 17.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=BigInteger(0);
var f:=BigInteger(1);
for var i:=1 to ReadInteger('n=') do begin
f*=i;
s+=f
end;
Writeln('S= ',s)
end.
<u>Примеры</u>
n= 5
S= 153
n= 20
S= 2561327494111820313
n= 100
S= 94269001683709979260859834124473539872070722613982672442938359305624678223479506023400294093599136466986609124347432647622826870038220556442336528920420940313
8бит=1байта
16бит=2байта
8*32*64*2=32768байт переводим в Кбайты 1Кбайт=1024байта
32768/1024=32Кбайт
1) 32*128*8=32786 символов на 8 страницах
N=2^i ; 16 = 2^4 ; i = 4 бита
<span>32768*4=131072 бита
теперь переводим в кбайт
</span>131072/8 = 16384 байт/1024 = 16кБ.
Ну где качество печати ужасное и нужно распознать его - используют векторный метод распознания, а растровый накладывается на растровые шаблоны символов, которые хранятся в памяти системы