Вычислить на паскале. среди всех трехзначных чисел подсчитать количество кратных 21 и одновременно четных. найти их среднее арифметическое.

162

464

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

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

Sergovseznaet

Информатика

4,5(15 оценок)

Var i,sum,kol_vo: integer; sr: float; begin for i: =100 to 999 do begin if mod 21)=0) and ((i mod 2)=0)) then begin kol_vo: =kol_vo+1; sum: =sum+i; end; end; sr: =sum/kol_vo; print("необходимых чисел ",kol_vo,". их среднее арифметическое ",sr) end.

Dimastopgaming

Информатика

4,5(96 оценок)

Program qq; var a, b, c: real; begin writeln('введите два числа'); readln(a,b); if b=0 then begin writeln('делитель не должен равняться нулю, введите числа повторно') readln(a, b); end if else begin c: =a/b; end writeln('получившееся число', c) end. может где-нибудь есть косячок, но в основном, все должно получиться, удачи: )

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

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

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

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

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

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

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

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

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

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