Что будет выведено на экране монитора после выполнения следующего фрагмента программы:
var i,a,b: integer;
begin
b := 8;
a := 3;
while (a <= b) do
begin
a := a *2+1 ;
write(a );
end;
end.
145
483
Ответы на вопрос:
Procedure solution(n: byte; var s: double); var i: byte; a: integer; begin s : = 1; for i : = 1 to n do begin a : = 1 + random(21); write(a, ' '); {так красивше} s : = s * a end; writeln; {строки поменяны местами просто для удобочитаемости} s : = power(s, 1 / n); end; var n: byte; p: double; begin randomize; write('n? '); readln(n); solution(n, p); writeln(p) end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
дарий83317.12.2022 13:58
-
babyirishka2108.01.2023 14:20
-
Aleks456523.11.2020 00:42
-
Jfigh08.11.2021 06:50
-
ktotot27.05.2023 23:55
-
Kybikowskatana23.09.2020 13:34
-
vualada04.04.2023 07:44
-
AlinaZimina109.04.2020 02:48
-
светлана44018.08.2020 03:05
-
shadow90903.06.2022 09:12
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.