Advertisement
Guest User

Untitled

a guest
Dec 1st, 2015
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.35 KB | None | 0 0
  1. program Zadanie3;
  2. var holiday,summer, A,B,enddate: Integer;
  3. begin
  4.   writeln('Meness: Junijs (30 dienas). Kura diena sakas jusu atputa?(A)');readln(A);
  5.   writeln('Meness: Julijs (31 dienas). Kura diena beigas jusu atputa?(B)');readln(B);
  6.   summer:=61;
  7.   enddate:=31+B;
  8.   holiday:=enddate-A;
  9.   writeln('Atputas garums: ',holiday,' dienas.');readln;
  10. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement