Решения (задачи 51-98)
Задача 95
writeln('Число должно быть от 1 до 12');
(Определение стоимости междугороднего телефонного разговора } var
kod: integer; { код города } cena: real; { цена минуты)
dlit: integer; { длительность разговора } summ: real; { стоимость разговора } begin
writeln('Вычисление стоимости разговора по телефону.');
writeln('Введите исходные данные:');
write('Код города › '); readln(kod);
write('Длительность разговора (целое кол-во минут) › ');
readln(dlit); write('Город: '); case kod of 432: begin
writeln('Владивосток'); cena: = 2.2; end; 095: begin
writeln('Москва'); cena: = 1; end; 815: begin
writeln('Мурманск'); cena: = 1.2; end; 846: begin
writeln('Самара'); cena: = 1.4; end; end;
suran: = cena * dlit; writeln('Цена минуты:',cena:6:2,' руб.');
writeln('Стоимость разговора:',summ:6:2, ' руб.');
readln; end.
Задача 96
{ Дописывает после числа слово "рубль" в правильной форме } var
n: integer; { число }
m: integer; (остаток от деления п на 100 (последние две цифры) }
r: integer; { остаток от деления п на 10 (последняя цифра) } begin
writeln('Введите целое число (от 1 до 999)', ' и нажмите Enter');
write(' › ');
readln(n);
write(n,' ');
{ окончание определяется двумя последними цифрами | if n>100
then m: = n mod 100;
if (m >= 11) and (m <= 14) then
writeln('рублей') else begin
r: = n mod 10; case r of
0, 5.. 9: writeln('рублей'); 1: writeln ('рубль'); 2..4: writeln ('рубля'); end; end;
readln; end.
Задача 98
{ Вычисление даты следующего дня } var
day:integer;
month:integer;;
year:integer;:
last.-boolean; { TRUE, если текущий день последний день
месяца }.r:integer; { если год високосный, то остаток от }
{ деления year на 4 равен нулю } begin
write('Введите цифрами сегодняшнюю дату');
write('(число месяц год) › ');
readln(day,month,year);
last: = FALSE;
case month of
L,3.5.7.8.10.12:if day=31
then last: = TRUE;
4.6.9.11: if day=30
then last: = TRUE;
2: if day = 28 then
begin
r: = year mod 4; if r <> 0
then last: = TRUE; end; end; { case }
if last
then begin
writeln('Последний день месяца!');
day: = l;
if month=12
then begin
month: = 1; year: = year + 1;
writeln('С наступающим Новым годом!'); end
else month: = month + 1; end
else day: = day + 1; writelnf'Завтра ',day,'.',month,'.',year);
readln;
end.