Написать программу вычисления стоимости покупки 5-ти товаров

ниже таблица значений и начало решения, нужно доделать до конца!

, кто шарит в информатике!

169

414

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

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

vitalikduma01oz0gwd

Информатика

4,4(78 оценок)

Код ужасно кривой, но рабочий (надеюсь, принцип понятен): 1. бензин type benzin=class public money: double; m: integer; end; var b: benzin; begin b: =new benzin; b.m: =0; b.money: =20; while b.money< 22.0 do begin b.money: =b.money*1.02; b.m: =b.m+1; writeln('сейчас бензин стоит: ',b.money); writeln('сейчас месяц прошел: ',b.m); end; end. 2. вклад type biznes=class public money: double; m: integer; time: integer; end; var b: biznes; begin b: =new biznes; writeln('напишите сумму рублей: '); read(b.money); writeln('напишите кол-во месяцев: '); read(b.m); b.time: =0; while b.time< b.m do begin b.money: =b.money*1.03; b.time: =b.time+1; writeln('сейчас сумма: ',b.money); writeln('прошел месяц: ',b.time); end; end. 3. тренировки type sport=class public first: double; day: integer; first2: double; first3: double; first4: double; first5: double; first6: double; first7: double; answer: double; end; var s: sport; begin s: =new sport; s.first: =5; s.day: =1; while s.day=1 do begin s.first2: =s.first*1.20; s.day: =s.day+1; writeln('сейчас бегает: ',s.first2); writeln('день: ',s.day); end; while s.day=2 do begin s.first3: =s.first2*1.20; s.day: =s.day+1; writeln('сейчас бегает: ',s.first3); writeln('день: ',s.day); end; while s.day=3 do begin s.first4: =s.first3*1.20; s.day: =s.day+1; writeln('сейчас бегает: ',s.first4); writeln('день: ',s.day); end; while s.day=4 do begin s.first5: =s.first4*1.20; s.day: =s.day+1; writeln('сейчас бегает: ',s.first5); writeln('день: ',s.day); end; while s.day=5 do begin s.first6: =s.first5*1.20; s.day: =s.day+1; writeln('сейчас бегает: ',s.first6); writeln('день: ',s.day); end; while s.day=6 do begin s.first7: =s.first6*1.20; s.day: =s.day+1; writeln('сейчас бегает: ',s.first7); writeln('день: ',s.day); end; while s.day=7 do begin s.answer: =s.first+s.first2+s.first3+s.first4+s.first5+s.first6+s.first7; s.day: =s.day+1; writeln('ответ: ',s.answer); end; end.

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

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

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

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

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

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

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

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

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

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