Предмет: Информатика,
автор: Chingiz444
Срочно!
Помогите пожалуйста с задачей по информатике. Задача приведена на фото.
Зарание большое спасибо.
Приложения:

Ответы
Автор ответа:
0
Паскаль?
var h,m,s:integer;begin Readln(h,m,s); if s>=30 then begin Writeln(h,' ',m+1);m:=m+1; end else Writeln(h,' ',m); if m>=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 s>=30 then begin Writeln(h,' ',m+1);m:=m+1; end else Writeln(h,' ',m); if m>=30 then Writeln(h+1) else Writeln(h);end.Если 12 29 30 должно выводить 12 30 и 13, то задача верна,если нет,то убери m=m+1;
Автор ответа:
0
Просто смотри сколько минут и секунд больше 30 или нет...
Похожие вопросы
Предмет: Алгебра,
автор: aizere5776
Предмет: Литература,
автор: Malisjw
Предмет: Математика,
автор: ekosh7825
Предмет: Математика,
автор: Аноним
Предмет: Алгебра,
автор: farmanfarmanov