Вопрос по информатике:
Текущее показание электронных часов: m часов (0<=m<=23) n мин(0<=n<=59), k c(0<=k<=59). Какое время будут показывать часы через p часов, q мин, r c?
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 13.06.2018 18:43
- Информатика
- remove_red_eye 7961
- thumb_up 38
Ответы и объяснения 2
Uses crt;
function
Conv(x:byte):string;{функция преобразования чисел в строку(маска вывода)}
var
s,t:string;
beginstr(x,t);{преобразуем число в строку}
if x=0 then s:='00'{если это ноль}else
if (x>0)and(x<=9) then s:='0'+t
{если однозначное число}
else s:=t;{двухзначное число}
Conv:=s;
end;
var ch1,mn1,sc1:byte;{начальное время}
chd,mnd,scd:byte;{добавленное время}
chr,mnr,scr:byte;{результат}
mn,ch:byte;{добавление 1 к минутам и часам, если секунд или минут >60}
begin
clrscr;
writeln('Vvedite nachalnoe vremya:');
write(' Chasy=');
readln(ch1);
write(' Minuty=');
readln(mn1);
write(' Secundy=');
readln(sc1);
writeln('Vvedite pribavlennoe vremya:');
write(' Chasy=');
readln(chd);
write(' Minuty=');
readln(mnd);
write(' Secundy=');
readln(scd);
scr:=(sc1+scd) mod 60;
mn:=(sc1+scd)div 60;
mnr:=(mn1+mnd+mn) mod 60;
ch:=(mn1+mnd+mn) div 60;
chr:=(ch1+chd+ch) mod 24;
clrscr;writeln('Nachalnoe vremya');
writeln(Conv(ch1),':',Conv(mn1),':',Conv(sc1));
writeln('vremy pribavlenia');
writeln(Conv(chd),':',Conv(mnd),':',Conv(scd));
writeln('konechnoe vremya');
writeln(Conv(chr),':',Conv(mnr),':',Conv(scr));
readkey;
end.
- 14.06.2018 08:59
- thumb_up 16
Var m, n, c, p, q, r: integer;
begin
read(m); write(':'); read(n); write(':'); read(c);
write(' + ');
read(p); write(':'); read(q); write(':'); read(r);
write(' = ');
c := c + n * 60 + m * 60 * 60;
r := r + q * 60 + p * 60 * 60;
r := c + r;
writeln(r div 3600 mod 24:2, ':', r mod 3600 div 60:2, ':', r mod 60:2);
end.
- 16.06.2018 00:30
- thumb_up 24
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.