Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Zadanie3;
- var holiday,summer, A,B,enddate: Integer;
- begin
- writeln('Meness: Junijs (30 dienas). Kura diena sakas jusu atputa?(A)');readln(A);
- writeln('Meness: Julijs (31 dienas). Kura diena beigas jusu atputa?(B)');readln(B);
- summer:=61;
- enddate:=31+B;
- holiday:=enddate-A;
- writeln('Atputas garums: ',holiday,' dienas.');readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement