По номеру месяца определите сезон.
Program Sezon; Var N: integer; Begin writeln(‘введите номер месяца’); Readln(N); CASE N OF 1,2,12: writeln(‘зима’); 3,4,5: writeln(‘весна’); 6..8: writeln(‘лето’); 9..11: writeln(‘осень’) ELSE writeln(‘нет такого месяца ’) END END. 2)Вычислить:
Program Lab1_Primer1; Var x, y: real; k: integer; Begin K:=0; Read(x); If (x>=0)and(x<=10) Then if x-5>0 then y:=Ln(x-5) else k:=1 Else if x+2>=0 then y:=sqrt(x+2) else k:=2; Case K of Writeln(Нет ООФ для F1); Writeln(Нет ООФ для F2); 0: Writeln(‘y=’,y:5:2); {или с Else} End; End.
|
