Предмет: Информатика,
автор: ddfgg112нфк
Вводится начало занятий h1 - часов, m1- минут, n- количество уроков, d- длительность уроков, p-длительность перемен (считаем, что все перемены одинаковой длительности). Найти время окончания занятий: h2-часов, m2-минут.
Ответы
Автор ответа:
0
program w;
var h1,m1,h2,m2,mm1,mm2,n,d,p:integer;
begin;
write('Введите время начала уроков: ');
readln(h1,m1);
write('Введите длину уроков: ');
readln(d);
write('Введите длину перемен: ');
readln(p);
write('Введите кол-во уроков: ');
readln(n);
mm1:=m1+h1*60;
mm2:=mm1+d*n+p*(n-1);
h2:=mm2 div 60;
m2:=mm2 mod 60;
write('Уроки закончатся в ', h2, 'часов ', m2, 'минут.');
end.
var h1,m1,h2,m2,mm1,mm2,n,d,p:integer;
begin;
write('Введите время начала уроков: ');
readln(h1,m1);
write('Введите длину уроков: ');
readln(d);
write('Введите длину перемен: ');
readln(p);
write('Введите кол-во уроков: ');
readln(n);
mm1:=m1+h1*60;
mm2:=mm1+d*n+p*(n-1);
h2:=mm2 div 60;
m2:=mm2 mod 60;
write('Уроки закончатся в ', h2, 'часов ', m2, 'минут.');
end.
Похожие вопросы
Предмет: Английский язык,
автор: 345malika
Предмет: Математика,
автор: noyansarp
Предмет: Математика,
автор: mrymnurddinova
Предмет: Математика,
автор: Матв00ва
Предмет: История,
автор: fynjybyf1956