program number7;
uses crt;
var a,b: integer;
begin
clrscr;
a := 342;
b := 512;
a := a div 10 mod 10;
b := a + b mod 10;
writeln ('17 div 3 = ',b);
readln
end.
b=6
Если, когда, круг, ждать, цикл, повторять.
DIM p AS LONG
p = 1
FOR i = 5 TO 18 STEP 5
p = p * i
NEXT i
PRINT p
Ответ 14831.5429688
Дано
800*600 разрешение65536 палитра16 кадров/сек15 камер слежения
Решениесутки = 86400 сек = 1382400 кадров
глубина пикселя 16 бит
800*600*16=7680000 бит 1 кадр
7680000бит=7500кбит
7500*1382400*15=155520000000кб=151875000мб=148315.429688Гб в сутках
10=148315.429688/x
10*x=148315.429688
148315.429688/10=14831.5429688 Гигабайт в сжатом виде за сутки