Срочно! Подскажите пожалуйста с задачей по информатике. Задача приведена на фото. Зарание большое спасибо.
186
ОТВЕТЫ
Паскаль
var h,m,s:integer;begin Readln(h,m,s); if sgt;=30 then begin Writeln(h, ,m+1);m:=m+1; end else Writeln(h, ,m); if mgt;=30 then Writeln(h+1) else Writeln(h);end.Если 12 29 30 должно выводить 12 30 и 13, то задача верна,если нет,то убери m=m+1;
var h,m,s:integer;begin Readln(h,m,s); if sgt;=30 then begin Writeln(h, ,m+1);m:=m+1; end else Writeln(h, ,m); if mgt;=30 then Writeln(h+1) else Writeln(h);end.Если 12 29 30 должно выводить 12 30 и 13, то задача верна,если нет,то убери m=m+1;
205
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Nalmetius
Нам информатик говорит :Как включить пк? так что? как ...
2019-01-12 04:08:31
Валентина
Для записи сообщения использовался 4 символьный алфавит . Сообщение ...
2019-01-12 04:07:26
Gavinrandis
Подскажите прошу очень нужно! Даю 10 баллов!
...
2019-01-12 04:06:46
Agamathis
В программе описан одномерный целочисленный массив с индексами ль ...
2019-01-12 04:05:45