Можно так:
Program VremjaGoda;
Var i:integer;
Begin
Writeln ('введите номер месяца');
Begin
For i:=1 to 12 do
Begin
If i=1 or i=2 or i=12
Then writeln ('зима');
Else
If i=3 or i=4 or i=5
Then writeln ('Весна');
Else
If i=6 or i=7 or i=8
Then writeln ('Лето');
Else
If i=9 or i=10 or i=11
Then writeln ('Осень');
End;
End;
End.
Можно использовать Case.
Ответ:
6
Объяснение:
От 0 до 5(включительно) 6.
6 раз повториться действие
s:=s+1;
Значит будет:1+1+1+1+1+1=6
муха, мура, тура, тара, пара, парк, паук, паут, плут, плот, слот,слон
Если в алфавите 16 символов, то для записи одного символа необходимо log(2)16 = 4 бита (2^4=16)
2 Кбайт = 2*1024 байт = 2*1024*8 бит
Количество символов = 2*1024*8/4 = 4096