Перевести с турбо паскаля в паскаль абс program z1; uses crt; type ttmas=array[1..1] of real; tmas=^ttmas; var a: tmas; n,i,j: integer; f: real; begin clrscr; write('размер массива n='); readln (n); getmem(a,sizeof(ttmas)*n); writeln ('исходный массив: '); f: =1; for i: =1 to n do begin f: =f*i; a^[i]: =1/(f+1); writeln(a^[i]: 0: 10); end; freemem(a,sizeof(ttmas)*n); readln end.
229
288
Ответы на вопрос:
Program z1; type tmas=array of real; var a: tmas; n,i: integer; f: real; begin write('размер массива n='); readln (n); setlength(a,n); writeln ('исходный массив: '); f: =1; for i: =0 to n-1 do begin f: =f*(i+1); a[i]: =1/(f+1); writeln(a[i]: 0: 10); end; setlength(a,0); end.
объяснение:
i = log2(64) = 6 бит
3 кбайт = 3072 байт = 24576 бит
24576 ÷ 6 = 4096 символов
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
vborisenko7504.12.2020 15:54
-
sashaStreet120.05.2023 22:08
-
leyla21012.07.2021 16:45
-
sergeu3522p09njx07.11.2020 06:58
-
avramenkoviola30.03.2023 00:26
-
MrMut22205.11.2022 14:21
-
malckowdanilр10.01.2020 15:11
-
demid1312345678924.08.2021 20:34
-
bella7777708.05.2021 12:23
-
Dashylia201404.05.2022 20:21
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.