no estoy entendiendo porque mi programa no complia
Publicado por tammara (5 intervenciones) el 15/08/2017 21:21:41
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Program Hora;
var
hh,mm,hh1,mm1,a,b,c,d,e: integer;
Begin
read(a,b);
hh:= a div 100;
mm:= a mod 100;
hh1:= b div 100;
mm1:= b mod 100;
c:= hh+hh1;
e:= mm+mm1;
if (c>=24) and (e>=60) then
begin
e:= e-60;
c:= c-24;
c:= c+1;
d:= 1;
writeln (d c e)
end
else if (c<24) and (e<60) then
begin
d:= 0;
writeln(d c e)
end
else if (c>24) and (e<60) then
begin
c:= c-24;
d:= 1;
writeln (d c e)
end
else if (c<24) and (e>60) then
begin
t:= true;
e:= e-60;
c:= c+1;
d:= 0;
witeln (d c e)
end
end.Valora esta pregunta
0
