Можно так:
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.
Тут все просто. У нас известны числа. и мы просто подставляем их в схему. И.к. а больше нуля и б больше нуля. А у нас а:=а+б. Во втором действие. то понятно, что а>0. по этому мы идем по стрелочки "нет". и опять из б Вычитаем 3. а к а прибавляем б. и скоро у нас а станет отрицательным( т.к. б станет отрицательным и мы будем вычитать б из а). И в итоге получится ответ -2-(-8)=-2+8=6
Ответ:6
Const
Pi = 3.141592;
var
R, S, L : Real;
begin<span>
</span> Write('Введите радиус круга: ');<span>
</span> ReadLn(R);
<span>
</span> S := Pi*sqr(R);<span>
</span> L := 2*Pi*R;
<span>
</span> Writeln('S круга: ', S:0:3);<span>
</span> Writeln('Длина окружности: ', L:0:3);<span>
</span> Readln;
end.
<span>ОЗП - так звана пам'ять з відкритим доступом (так звана "оперативка").
Вона використовується для збереження даних програм (машинного коду) під час роботи комп'ютера.</span>
Если в первом триместре оценка есть. И во втором триместре вы были на уроках. то оценка должна быть(если ее нет вы можете спокойно идти к директору) а так вы просто будете не аттестованы по этому предмету.
