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 thinking... ');
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.
для перевода в десятичную систему записываем число в развернутом виде и считаем:
для перевода в 8-ую систему разбиваем число на тройки с конца (отделяем по 3 числа начиная с конца. если в начале не хватает до 3-х цифр, то дописываем 0). и в каждой тройке проводим счет как в десятичную систему.
для перевода в 16-ю систему делаем тоже самое, что и с 8-ой, только на четверки разбиваем.
Все тоже самое проделываем для второго числа: