очень Напишите программу на Паскале, которая выводит цифры, начиная с единиц, в сгенерированном случайным образом натуральном числе в диапазоне от 100 до 10000.
110
491
Ответы на вопрос:
// PascalABC.NET
begin
var n := Random(100, 10000);
n.Println;
while n > 0 do
begin
Print(n mod 10);
n := n div 10
end
end.
Var n,s,k,t: integer; begin s: =0; k: =0; read(n); for n: = 1 to n do begin read(t); if t > 0 then begin s: =s+t; k: =k+1; end; end; writeln('k = ',k); write('sr = ',s/k) end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
lesya1614607.12.2022 00:36
-
HanZamay30.03.2023 08:21
-
ivanochka02kasik13.03.2020 03:52
-
Liz1ka02.05.2020 10:35
-
КристинаКупава09.12.2022 06:06
-
VILI757518.01.2023 06:06
-
zincenkoe75908.04.2021 13:53
-
сорин888813.04.2022 18:18
-
ZeepFire11.07.2020 18:09
-
Zahardenicuk04.09.2020 02:35
![Caktus Image](/tpl/img/cactus.png)
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.