Вычислить стоимость переговоров, если по субботам и воскресеньям предоставляется 20% скидка

@Алина3421 · Регистрация: 19.05.2016

Студворк — интернет-сервис помощи студентам

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

там и воскресеньям предоставляется 20% скидка. Ввести продолжитель-ность разговора и день недели (цифра от 1 до 7).

@JuriiMW · 02.11.2016, 06:09

Pascal

begin
  var c := ReadLnReal('Стоимость 1 минуты разговоров =');
  var m, d : Integer;
  repeat
    Write(NewLine*5, 'Введите продолжительность разговора и день недели через пробел: ');
    ReadLn(m, d);
    if m < 1 then WriteLn('Продолжительность разговора не задана.')
    else if (d < 0) or (d > 7) then WriteLn('День недели не может быть ' + d + '.')
    else WriteLnFormat('Стоимость переговоров = {0:0.00} руб.', (d > 5 ? 0.8 : 1) * c * m);
  until false;
end.

@Алина3421 0 / 0 / 1 Регистрация: 19.05.2016 Сообщений: 54
		1
	Вычислить стоимость переговоров, если по субботам и воскресеньям предоставляется 20% скидка 02.11.2016, 05:22. Показов 4171. Ответов 1 Метки нет (Все метки) Написать программу вычисления стоимости переговоров, если по суббо- там и воскресеньям предоставляется 20% скидка. Ввести продолжитель-ность разговора и день недели (цифра от 1 до 7). 0

Опции темы

Вычислить стоимость переговоров, если по субботам и воскресеньям предоставляется 20% скидка

Решение