//с начала года прошло k часов. Определить, какая сейчас неделя var n,k:integer; begin read(n,k); if (k 8784) then writeln('не корректные данные') else begin k:= k div 168; writeln(k); end; end.
//с начала месяца прошло m часов. Определить, какое сейчас число var m,k:integer; begin read(m); if (m 744) then writeln('не корректные данные') else begin k:= m div 24; writeln(k); end; end.
Program3.pas [216 b] (cкачиваний: 1) var m,k:integer; begin read(m); if (m744) then writeln('не корректные данные') else begin k:=m div 24; end; writeln (k);
//с начала месяца прошло m часов. Определить, какое сейчас число var m,k:integer; begin read(m); if (m 744) then writeln('не корректные данные') else begin k:= m div 24; writeln(k); end; end.
Program3.pas [211 b] (cкачиваний: 1) var m,k:integer; begin read(m); if (m744) then writeln('не корректные данные') else begin k:=m div 24; end; writeln (k); end.