Написать программу определения стоимости разговора по телефону с учетом скидки 20% представляемой по субботам и воскресениям.

AzamatAmangaliev1 AzamatAmangaliev1    2   13.07.2019 08:10    1

Ответы
MisteryHack0 MisteryHack0  18.09.2020 21:26
Var st:real;
    mn:integer;
    d:1..7;
begin
write('Введите стоимость 1 минуты в рублях st=');
readln(st);
write('Введите продолжительность разговора в минутах mn=');
readln(mn);
repeat
write('Введите номер дня недели d=');
readln(d);
until d in [1..7];
case d of
1..5:st:=st*mn;
else st:=st*mn*0.8;
end;
write('Стоимость разговора=',st:0:2);
readln
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика