Question

Пожалуйста, помогите создать алгоритмы!

Answer 1

ReadNat(data) 
ReadNat(luna) 
ReadNat(anul) 
If (anul mod 4 = 0) then 
Case luna of 
Ian:0 
Feb:31 
Mar:60 
Apr:91 
Mai:121 
Iun:152 
Iul:182 
Aug:213 
Sep:244 
Oct:274 
Noi:305 
Dec:335 
END 

Else 
Case luna of 
Ian:0 
Feb:31 
Mar:59 
Apr:90 
Mai:120 
Iun:151 
Iul:181 
Aug:212 
Sep:243 
Oct:273 
Noi:304 
Dec:334 
END 
END 

Nr:=luna+data 
Writenat(Nr) 
End