Написать программу на языке паскаль, в которой определяется какому времени года принадлежит введённый с клавиатуры порядковый номер месяца.за основу взято международное соглашение январь-1; декабрь-12.

Var a: integer; begin   write('введите номер месяца:   '); readln(a); case a 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('декабрь - зима'); else writeln('введено не верное число. введите число от 1 до 12'); end; end. либо вариант: var a: integer; begin write('введите номер месяца: '); readln(a); case a of 1..2: writeln('зима'); 3..5: writeln('весна'); 6..8: writeln('лето'); 9..11: writeln('осень'); 12: writeln('зима'); else writeln('введено не верное число. введите число от 1 до 12'); end; end.

Int mesyac; console.writeline("введите месяц: "); mesyac = convert.toint32(console.; if (mesyac == 12 || mesyac == 1 || mesyac == 2) { console.writeline("зима"); } if (mesyac > 2 & & mesyac =< 5) { console.writeline("весна"); } if (mesyac > 5 & & mesyac =< 8) { console.writeline("лето"); } if (mesyac > 8 & & mesyac =< 11) { console.writeline("осень"); } console.;

// pascalabc.net 3.0, сборка 1157 от 02.02.2016 begin   var a: array[1..20] of integer;   randomize;   for var i: =1 to 20 do a[i]: =random(-50,50); a.println;   var b: =range(2,20,2).select(i-> a[i]);   writeln('элементы с четными индексами по возрастанию');   b.sorted.println;   writeln('элементы с четными индексами по убыванию');   b.sorteddescending.println; end. тестовое решение: -15 46 -34 -3 43 16 -17 -28 -19 12 -28 -11 48 -12 -1 33 -37 9 6 -40 элементы с четными индексами по возрастанию -40 -28 -12 -11 -3 9 12 16 33 46 элементы с четными индексами по убыванию 46 33 16 12 9 -3 -11 -12 -28 -40

// pascalabc.net 3.0, сборка 1157 от 02.02.2016 var   x: integer; begin   for x: =-8 to 8 do writeln(x: 3,sqr(x)-9*x+4: 6)  end. результат  выполнения программы:   -8    140   -7    116   -6      94   -5      74   -4      56   -3      40   -2      26   -1      14   0        4   1      -4   2    -10   3    -14   4    -16   5    -16   6    -14   7    -10   8      -4