Янаписал программу в pascal abs net, суть которой такова, что нужно человеку сначала ввести n чисел, после чего программа должна сложить данные числа и эту сумму поделить на сумму чисел в числе,которое получилось в первой сумме, когда человек вводил числа. формула: где sum1= сумму n чисел, которые ввёл человек sum2=сумму чисел в числе, получившееся в результате сложения чисел, вводимых человеком. программа var a,x,n,y,i,s,sum,b: integer; begin n : = 7; sum : = 0; for y : = 1 to n do begin write(y, '-е число = '); readln(b); sum : = sum + b end; a: =sum; readln( a ); x: =a; s: =0; while ( x< > 0 ) do begin s : = s + (x mod 10); x : = x div 10; end; case round(a/s) of 1,5,7,9,11,13,15: writeln('выпадет: красное'); 2,4,6,8,10,12,14,16: writeln('выпадет: чёрное'); 3: writeln('выпадет: зелёное'); else writeln('выпадет: неизвестный цвет'); end; readln; end. когда я её запускаю, мне сразу же выдаёт программа поля: 1-e число= потом 2-е число= и так далее. после того как я заполняю эти поля числами, ничего не происходит, хотя должна программа в итоге выдать результат последнего действия, где нужно разделить сумму чисел на сумму цифр суммированного числа. ! 100 !

146

317

Посмотреть ответы 2

Ответы на вопрос:

botan2008

Информатика

4,7(54 оценок)

Вследующий раз внимательно смотрите за переменными и что вы им присваиваете и желательно вам разобратся в типах данных, это основы основ.

AlexandraBarabash

Информатика

4,8(33 оценок)

L=int(input('введите расстояние в км: ')) v=18000 def time(l,v): t=l/v if t< 24: t=round(t,2) return str(t)+' ч' elif 24< =t< =24*365: t=round(t/24,2) return str(t)+' суток' else: t=round(t/24/365,2) return str(t)+' лет' t=time(l,v) print(t)

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.