Например список учеников класса,можно составить таблицу по нескольким критериям:рост,вес,пол И так далее
CLSINPUT NDIM A(N), B(N)FOR i = 1 TO N A(i) = INT(RND * 100)NEXT imin = A(1)FOR i = 2 TO N IF A(i) < min THEN min = A(i)NEXT iFOR i = 1 TO N A(i) = min * A(i)NEXT iFOR i = 1 TO N B(i) = INT(RND * 100)NEXT imin = B(1)FOR i = 2 TO N IF B(i) < min THEN min = B(i)NEXT iFOR i = 1 TO N B(i) = min * B(i)NEXT iFOR i = 1 TO N PRINT A(i);NEXT iPRINTFOR i = 1 TO N PRINT B(i);NEXT i
50*70*2 = 7000 байт вес одной страницы
2.8мб /1024 /1024 = 2`936`012,8 байт
2`936`012,8 байт /7000 байт = 419,4304 страниц
Var a,b,c,s:double;BEGINWrite('Введите a:');Readln(a);Write('Введите b:');Readln(b);Write('Введите c:');Readln(c);s:=2*(a*b+a*c+b*c);WriteLn(s);Readln();END.