Var
a:integer;
begin
write('Введите номер месяца: ');
readln(a);
case a of
1: writeln('Январь.31 день');
2: writeln('Февраль.29 дней');
3: writeln('Март.31 день');
4: writeln('Апрель.30 дней');
5: writeln('Май.31 день');
6: writeln('Июнь.30 дней');
7: writeln('Июль.31 день');
8: writeln('Август.31 день');
9: writeln('Сентябрь.30 дней');
10: writeln('Октябрь.31 день');
11: writeln('Ноябрь.30 дней');
12: writeln('Декабрь.31 день');
end;
end.
2.
var
a:integer;
begin
writeln('Введите число: ');
readln(a);
case a of
1: write(a, ' Копейка');
2..4: write(a, ' Копейки');
5..20: write(a, ' Копеек');
end;
end.
Можно ещё разя просто задание не совсем поняла
Если нужно вывести большее из двух чисел, то правильно, кроме:
3-я строка - в конце нужна точка с запятой
7-я строка - бессмысленная команда readln. Ее можно не писать.
Ответ:
24,3₈
Объяснение:
7,5₈
+ 14,6₈
---------
24,3₈
Система восьмеричная, поэтому складываем как в десятичной, но если число превышает 7, добавляем еще 2 (потому что осенование системы 8 на 2 меньше, чем 10, в которой считаем).
5 + 6 = 11 и +2 = 13. Тройку пишем, +1 в следующий разряд
4 + 7 + 1 = 12 и +2 = 14. Четверку пишем, +1 в следующий разряд.
1 + 1 = 2.