Разделим таблицу по диагонали слева направо (\).
Давайте будем идти по строчкам (вертикальный столбец 1, 2, 3, 4, ...) и искать, в каких столбцах (горизонтальная строка 1, 2, 3, 4, ...) встречается единичка:
- [1][3]
- [1][4]
- [2][3]
- [3][6]
- [4][5]
- [5][7]
- [5][8]
- [6][7]
- [7][8]
- [7][9]
Всё это значит связь между нумерованными кругами. Мы выписали все связи. Доказать это легко. 1 соединяется и с 3, и с 4, но не соединяется с 2. Так и есть, мы не выписывали пару [1][2]. 5 соединяется с 7 и 8, но не соединяется с 2. Всё так, как мы написали.
1 Вариант
var a:integer;
begin
writeln('Введите номер месяца: ');
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('Зима');
end;
end.
2 Вариант
var a:integer;
begin
writeln('Введите номер месяца: ');
readln(a);
if (a=12) or (a=1) or (a=2) then writeln('зима');
if (a=3) or (a=4) or (a=5) then writeln('весна');
if (a=6) or (a=7) or (a=8) then writeln('лето');
if (a=9) or (a=10) or (a=11) then writeln('осень');
end.
Var
a, b, c, v: real;
begin
writeln('Введите длины сторон a,b,c');
readln(a, b, c);
writeln('Объем параллелепипеда: ', a * b * c)
end.
Var
s:string;
d,i:integer;
begin
s:='177777277777377777477777';
d:=length(s);
for i:=1 to d-4 do
if copy(s,i,5)='77777' then
begin
delete(s,i,5);
insert('00000',s,i);
end;
writeln(s);
end.