Написать программу решения задачи в Pascal ABC. Задача: Занятия в школе начинаются в 8:30. Урок длится 40 минут, перерывы между уроками – 15 минут. Ввести номер урока и вывести время его окончания. (при решении используйте div и mod).
More Questions From This User See All
Answers & Comments
var n,du,dp,tn,tk,h,m:integer;
begin
writeln(' ');
repeat
write('Введите номер урока от 1 до 6 n=');
readln(n);
until n in [1..6];
tn:=480+30; (*начало занятий*)
du:=45; (*длина урока*)
dp:=10; (*длина перерыва*)
if n=1 then tk:=tn+du (*первый урок*)
else tk:=tn+du+(n-1)*(du+dp);(*другие*)
h:=tk div 60;
m:=tk mod 60;
write(h,'-',m);
end.