Решения (задачи 51-98)
Задача 89
{ Проверяет на четность введенное с клавиатуры число } var
n: integer; { введенное пользователем число } begin
writeln('Введите целое число и нажмите Enter');
write(' › ');
readln(n);
write ('Число \n, ' – ');
if n mod 2=0
then writeln('четное.') else writeln('нечетное.');
readln; { чтобы результат не исчез с экрана }
end.
Задача 91
{ Вычисление стоимости телефонного разговора с учетом
скидки, предоставляемой по субботам и воскресеньям } var
Time:integer; { длительность разговора)
Day:integer; { день недели }
Summa:real; { стоимость разговора }
begin
writeln('Вычисление стоимости разговора по телефону.');
writeln('Введите исходные данные:');
write('Длительность разговора');
write(' (целое кол-во минут) › ');
readln(Time);
write('День недели');
write(' (1-понедельник,..,7-воскресенье) › ');
readln(Day);
Summa: = 2.3 * Time; { цена минуты 2.3 руб.) if (Day = 6) or (Day = 7) then begin
writeln('Предоставляется скидка 20%); Summa: = Summa * 0.8; end;
writeln('Стоимость разговора:',Summa:8:2,' руб.'); readln;
end.
Задача 92
{ Контроль веса var w:real; h:real; } { вес) { рост }
opt:real; { оптимальный вес } d:real; (отклонение от оптимального веса } begin
writeln('Введите в одной строке через пробел');
writeln ('рост (см) и вес (кг), затем нажмите Enter');
write(' › '); readln(h,w); opt: = h-100; if w=opt then
writeln('Ваш вес оптимален!') else
if w<opt
then begin
d: = opt-w;
writeln('Вам надо поправиться на ',
d:5:2,' кг.'); end else begin
d: = w-opt;
writeln('Вам надо похудеть на1,
d:5:2,' кг'); end;
readln; end.
Задача 93
Определение времени года по номеру месяца } var
month: integer; { номер месяца } begin
writeln('Введите номер месяца (число от 1 до 12) и нажмите Enter');
write(' › '); readln(month); case month of
1.2.12: writeln('Зима');
3..5: writeln('Весна');
6..8: writeln('Лето');
9.. 11: writeln('Осень');
i 90
else
end;
readln
end.