Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Условный оператор

Автор: Гость 12.05.2007 23:35

Помогите мне,пожалуйста ,решить эту задачу. если можно, то с пояснением.
Иван часто звонит в Москву. Написать программу, помогающую Ивану определять стоимость разговора, зная количество минут разговора, стоимость одной минуты и день недели, в который был звонок (в субботу и воскресенье скидка на разговор 10%).

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


Автор: Артемий 13.05.2007 0:56

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.