Написать программу определения стоимости разговора по телефону с учётом скидки 20%, предоставляемой по субботам и воскресеньям. входные данные: sm(стоимость минуты разговора), m (число минут), day (день недели - ). выходные данные: s (стоимость разговора). ниже представлен вариант выполнения программы вычисление стоимости телефонного разговора введите исходные данные стоимость минуты разговора, руб. 1 длительность разговора (целое количество минут) 6 день недели (1-понедельник, 7-воскресенье) 7

193

464

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

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

nikitamarar2177

Информатика

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

Var m, day : integer; sm, s : real; begin writeln('вычисление стоимости телефонного разговора'); writeln('введите исходные данные'); writeln('стоимость минуты разговора, руб. '); readln(sm); writeln('длительность разговора (целое количество минут) '); readln(m); writeln('день недели (1-понедельник, 7-воскресенье) '); readln(day); s: =sm*m; if (day=6)or(day=7) then writeln('стоимость разговора с учетом скидки = ',s*0.8,' руб') else writeln('стоимость разговора = ',s,' руб'); end. пример: вычисление стоимости телефонного разговора введите исходные данные стоимость минуты разговора, руб. 1 длительность разговора (целое количество минут) 6 день недели (1-понедельник, 7-воскресенье) 7 стоимость разговора с учетом скидки = 4.8 руб

zufarovaindira

Информатика

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

// pascalabc.net 3.2, сборка 1381 от 04.02.2017 // внимание! если программа не работает, обновите версию! begin writeln('вычисление стоимости телефонного разговора'); writeln('введите исходные данные'); var sm: =readreal('стоимость минуты разговора, руб.'); var m: =readinteger('длительность разговора (целое количество минут)'); var day: =readinteger('день недели (1-понедельник, 7-воскресенье)'); var s: =sm*m*(day in [1..5]? 1.0: 0.8); writeln('стоимость разговора, руб ',s: 0: 2) end. пример вычисление стоимости телефонного разговора введите исходные данные стоимость минуты разговора, руб. 1 длительность разговора (целое количество минут) 6 день недели (1-понедельник, 7-воскресенье) 7 стоимость разговора, руб 4.80

iarik2008

Информатика

4,6(43 оценок)

Program test; const max = 10; //последний член последовательности var i, m, proizv: integer; bol: boolean; arr: array[1..max] of integer; begin proizv : = 1; bol : = false; write('введите м: '); readln(m); writeln(); for i: = 1 to max do begin arr[i] : = i; if (arr[i] > m) then begin proizv : = proizv * arr[i]; bol : = true; end; end; if (bol = false) then writeln('элементов больше числа м нет! ') else writeln('произведение = ', proizv); end.

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

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

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

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

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

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

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

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

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

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