1. Написать программу на VBA, реализующую следующий алгоритм: Радиус шара S=4πR2

Рассчитать радиус для введенного R

2. Написать программу на VBA, реализующую следующий алгоритм:

Написать программу для расчета стоимости абонемента.

Стоимость билета 1000 рублей

При покупке 3х билетов, предоставляется скидка 10%

При покупке 4-7 билетов – скидка 20%

При покупке более 7 билетов – скидка 30%

Вводится количество билетов. Выводится общая стоимость билетов.

Протестировать программу для покупки 2х билетов, 4х билетов, 10 билетов.

Программу реализовать с оператора Case.

Написать блок-схему программы.

230

488

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

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

orenet

Информатика

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

Var i,n,k,b: integer; begin write(' b = '); readln(b); write(' n = '); readln(n); i: =n; k: =0; while i> 0 do begin i: =i div 10; k: =k+1; end; if n< =b then writeln('число n не превышает ',b) else writeln('число n больше ',b); if (k mod 2) = 0 then writeln('число цифр = ',k,' - четное') else writeln('число цифр ',k,' - нечетное'); end.

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

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

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

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

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

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

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

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

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

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