История 2 мировая война, биология-вымирание динозавров, география-земля имеет форму шара
Можно как то так:
var
M: real;
x: integer;
begin
for x := 1 to 100 do
begin
M := 2 / Sin(x);
Println('x=', x, '; M=', M);
end;
end.
60*40=2400 байт
место выделяется кластерами, для 1.2 дискеты 512 байт
кластеров для полезной информации на 1,2 дискете (это ещё 5" древность)
2*80*15 - 2*2 -14 =2382
2382*512=1219584
1219584/2400=508,16
получается 508 страниц
var
mas:array[1..20]of integer;
i:integer;
//s,s1:integer;
begin
writeln('Элементы массива:');
for i:=2 to 20 do
begin
mas[i]:=2*i+5;
write(' ',mas[i]);
end;
writeln();
write('Первый элемент массива: ',mas[1]+#10+'Пятый элемент массива: ',mas[5]+#10+'Десятый элемент массива: ',mas[10]);
end.
------------------
ЭВОЛЮЦИЯ
------------------
Э(Дана)-ВОЛЮ(Остаток от волка)-ЦИ(остаток от слова лицо)-Я(Дана)