ответ: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.
Объяснение:
ответ: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.
Объяснение:
begin{Ввод}writeln('введите координаты коня (m1, n1)');readln (m1, n1);writeln ('введите координаты цели (m2, n2)');readln (m2, n2);{Вычисление}if (n1=n2-2) or (n1=n2+2) and (m1=m2+1) or (m1=m2-1) { конь бьет цель} then writeln ('конь бьет цель') else if (n1=n2-1) or (n1=n2+1) and (m1=m2+2) or (m1=m2-2) {конь бьет цель} then writeln ('конь бьет цель') {конь не бьет цель} else writeln ('конь не бьет цель');end.