Если это паскаль
диапазон вводится с клавиатуры
program pr1;
var a,b,x:integer; p:longint;
begin
writeLn('введите диапазон'); read(a,b);
x:=a;
while (x div 10)=0 do
inc(x);
p:=x;
inc(x);
while x<=b do
begin
p:=p*x;
inc(x);
end;
writeLn('p=',p);
<span>end.</span>
650 ПЕРЕВЕСТИ В КБ И ДЕЛИТЬ НА 3072
650x1024=665600
665600/3072=216,6сек
216,6/60=3,61мин
Маска 1 выберет файлы:
<span>chifera.dat
</span>chifera.doc
ferrum.doc
oferta.doc
tocoferol.doc
2:
<span>chifera.doc
deLafer.doc
oferta.doc
tokoferol.doc </span>
3:
<span>chifera.doc
oferta.doc
tokoferol.doc
4:</span><span>
chifera.doc
Значит, </span>по 3 маске будет отобрано 3 файла
INPUT "a=", a
INPUT "b=", b
PRINT "s="; a ^ 2 - b ^ 2
END
<em><u>Тестовое решение:</u></em>
Y:\qbasic>QBASIC.EXE
a=10
b=8.5
s= 27.75
Чтобы продолжить, нажмите любую клавишу
512-1. 1024-1.256-1 130-2