Конец семестра, я в завале : ( 1) написать программу, которая по вводимому числу от 1 до 11 (номеру класса) выдаёт соответствующее . например, если k=1 - «, первоклассник» , если k=9 - «, девятиклассник». учесть возможную ошибку при вводе числа с клавиатуры. 2) оператора case составить программу определения стоимости разговора по телефону с учётом скидки 20%, предоставляемой по субботам и воскресеньям. минута разговора стоит 2,3 руб.вывести: день недели звонка, сумму без скидки и сумму со скидкой. если скидка не предоставляется - написать об этом. учесть возможную ошибку при вводе числа с клавиатуры. пояснение: с клавиатуры пользователь вводит длительность разговора и номер дня недели от 1 до 7.)

166

299

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

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

рух123

Информатика

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

program hello; var i: integer; begin write('введите целое число от 1 до 11: '); readln(i); writeln('**********************************'); case i of '1' : writeln(', ! '); '2' : writeln(', ! '); '3' : writeln(', ! '); '4' : writeln(', ! '); '5' : writeln(', ! '); '6' : writeln(', ! '); '7' : writeln(', ! '); '8' : writeln(', ! '); '9' : writeln(', ! '); '10' : writeln(', ! '); '11' : writeln(', ! '); else writeln('вы должны ввести число от 1 до 11') end; writeln('**********************************'); end.

program phone; var day: integer; time: real; week: array[1..7] of string; begin week[7]: ='воскресенье'; week[6]: ='суббота'; week[5]: ='пятница'; week[4]: ='четверг'; week[3]: ='среда'; week[2]: ='вторник'; week[1]: ='понедельник'; write('введите длительность разговора в минутах '); readln(time); write('введите номер дня недели '); readln(day); writeln('***** alphaeus is *****'); case day of '1'..'5': begin writeln(week[day]); writeln('сумма без скидки - ', 2.3*time); writeln('сумма скидкой - ', 0.8*2.3*time); writeln('скидка не предоставляется'); end; '6','7': begin writeln(week[day]); writeln('сумма без скидки - ', 2.3*time); writeln('сумма скидкой - ', 0.8*2.3*time); writeln('вам предоставлена скидка! '); end; else writeln('вы ввели неправильный номер дня недели') end; writeln'************************************'); end.

Nastya2oo3

Информатика

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

а можно поподробнее что подразумевается под учесть ошибку, имеется ввиду если число не соответсвует от 1 до 11 вывести "ошибка при вводе"?

AkaneSan

Информатика

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

1) var n: longint; begin readln(n); writeln(n div 60)); end. 2) var n,m,i,j: longint; begin readln(n); m: =n mod 10 *10 + n div 10; writeln(n,'+',m,'=',n+m); end. 3) var a,b,c,d: longint; begin readln(a,b,c,d) ; dec(c,a); dec(d,b); if d< 0 then begin dec(c); d: =100 -abs(d); end; writeln(c,' рублей ',d,' копеек'); end. 4) var a: longint; begin readln(a); if odd(a) then inc(a) else inc(a,2); writeln(a); end. если что то не работает напиши .

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

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

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

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

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

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

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

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

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

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