1 рис.-караси и хищные. 2 рис.-в 1 круге-караси,во 2-хищные,в большм круге-рыбы
Если ты рассчитываешь произведение нужно писать не X=X*d,а P=X*D
Можно так:
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.
11000000
Вот ответ . Но объяснить я не могу .
Например меня зовут....
или я сегодня получила 5 по математике