Помощь - Поиск - Пользователи - Календарь
Полная версия: Условный оператор
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Гость
Помогите мне,пожалуйста ,решить эту задачу. если можно, то с пояснением.
Иван часто звонит в Москву. Написать программу, помогающую Ивану определять стоимость разговора, зная количество минут разговора, стоимость одной минуты и день недели, в который был звонок (в субботу и воскресенье скидка на разговор 10%).

Рекомендуемый экран после запуска программы:
Введите стоимость 1 минуты: 3,5
Введите количество минут: 7
Введите день недели: суббота
Стоимость разговора с учётом скидки: 22,05 руб.

Артемий
var
 onemin,countmin: real;
 TheDay: String;
 Sum: Real;
begin
 writeln('The price of one min:');
 readln(onemin);
 writeln('Amount of time:');
 readln(countmin);
 writeln('The day');
 readln(TheDay);

  if (TheDay = 'Sunday') or (TheDay = 'Monday') then
   sum := (onemin*countmin) - (countmin / 100 * 10) else
    sum := onemin*countmin;

 writeln('Summa ravna ',sum:8:2);
 readln
end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.