Используется метод прямого обмена. Наименьшее число сдвигается в "левый край"
<u>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Введите номер месяца (1-12):');
case n of
3,4,5:Writeln('Весна');
6,7,8:Writeln('Лето');
9,10,11:Writeln('Осень');
12,1,2:Writeln('Зима')
else Writeln('Неверный номер')
end
end.
Ответ:
Объяснение:
var i,j:integer;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do write(j);
Writeln();
end;
end.
1.4
2.2
3.2
4.2
5.1
6.2
7.4
8.3
9.2
10.2
11.3
12.4
13.2
14.1
15.1
16.2
17.3
18.1
19.4
20.3