Question

ПАСКАЛЬ 9.1. Запросить у пользователя день, месяц и год. Вывести на экран: если день от 1 до 5, то вывести «начало», если от 6 до 14, то вывести «первая половина», если 15, то вывести «середина», если от 16 до 25, то вывести «вторая половина», если от 26 до 31, то вывести «конец». В той же строке вывести название месяца в родительном падеже. Проверить и на другой строке вывести «високосный» или «невисокосный» год.9.2. Запросить у пользователя целое число, последнюю цифру дописать впереди числа, вывести результат на экран.

Answer 1

Uses crt;
var dd,mm,gg:integer;
begin
readln(dd,mm,gg);
case dd of
1..5: writeln('начало');
6..14: writeln('первая половина');
15: writeln('середина');
16..25: writeln('вторая половина');
26..31: writeln('конец');
end;
case mm of
1: writeln('января');
2: writeln('февраля');
3: writeln('марта');
4: writeln('апреля');
5: writeln('мая');
6: writeln('июня');
7: writeln('июля');
8: writeln('августа');
9: writeln('сентября');
10: writeln('октября');
11: writeln('ноября');
12: writeln('декабря');
end;
if gg mod 4=0 then writeln ('високосный') else writeln('не високосный');
end.

---

var a:integer;
begin
readln(a);
writeln(a mod 10,a);
end.

Answer 2

Вот решение задачи на языке программирования Паскаль:

9.1. Запросить у пользователя день, месяц и год. Вывести на экран: если день от 1 до 5, то вывести «начало», если от 6 до 14, то вывести «первая половина», если 15, то вывести «середина», если от 16 до 25, то вывести «вторая половина», если от 26 до 31, то вывести «конец». В той же строке вывести название месяца в родительном падеже. Проверить и на другой строке вывести «високосный» или «невисокосный» год.

var day, month, year: integer; monthName: string; leapYear: boolean;

begin // Ввод данных от пользователя write('Введите день: '); readln(day); write('Введите месяц: '); readln(month); write('Введите год: '); readln(year); // Определение названия месяца case month of 1: monthName := 'января'; 2: monthName := 'февраля'; 3: monthName := 'марта'; 4: monthName := 'апреля'; 5: monthName := 'мая'; 6: monthName := 'июня'; 7: monthName := 'июля'; 8: monthName := 'августа'; 9: monthName := 'сентября'; 10: monthName := 'октября'; 11: monthName := 'ноября'; 12: monthName := 'декабря'; end; // Определение типа года leapYear := (year mod 4 = 0) and (year mod 100 <> 0) or (year mod 400 = 0); // Вывод результата writeln; case day of 1..5: writeln('начало ', monthName); 6..14: writeln('первая половина ', monthName); 15: writeln('середина ', monthName); 16..25: writeln('вторая половина ', monthName); 26..31: writeln('конец ', monthName); end; writeln('Год ', year, ' ', if leapYear then 'високосный' else 'невисокосный'); end.

9.2. Запросить у пользователя целое число, последнюю цифру дописать впереди числа, вывести результат на экран.

var number, lastDigit, result: integer;

begin // Ввод числа от пользователя write('Введите число: '); readln(number); // Получение последней цифры lastDigit := number mod 10; // Дописывание последней цифры впереди числа result := lastDigit * 10 + number div 10; // Вывод результата writeln('Результат: ', result); end.

Надеюсь, эти решения помогут вам! Если у вас возникнут дополнительные вопросы, пожалуйста, сообщите мне.