Question

Напишіть програму мовою програмування Паскаль, яка виводить назву місяця за його номером, та пору року до якого відноситься

Answer 1

Ответ:Program z1;

var k : integer;

begin

writeln('Введіть номер місяця');

readln(k);

case k 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; { case }

case k of 1,2,12: writeln('зима');

3,4,5: writeln('весна');

6,7,8: writeln('літо');

9,10,11: writeln('осінь');

else writeln('такого місяця немає');

end; { case }

readln end.

Объяснение:

Answer 2

Звісно, ось приклад програми на мові програмування Паскаль, яка виводить назву місяця за його номером та пору року:

pascalCopy code
program MonthAndSeason;

var
  monthNumber: integer;

begin
  writeln('Enter the month number (1-12): ');
  readln(monthNumber);
  
  case monthNumber of
    1, 2, 12:
      writeln('Month: January');
      writeln('Season: Winter');
    3, 4, 5:
      writeln('Month: February');
      writeln('Season: Spring');
    6, 7, 8:
      writeln('Month: June');
      writeln('Season: Summer');
    9, 10, 11:
      writeln('Month: September');
      writeln('Season: Autumn');
    else
      writeln('Invalid month number');
  end;
end.

Ця програма запитує користувача ввести номер місяця (1-12) та виводить назву місяця і відповідну пору року.