Памагите с pascalAbc.net в школе пжпж

Question

Памагите с pascalAbc.net в школе пжпж

Nefd юзер Ученик (118), на голосовании 1 неделю назад

Answer 1

Если ты выделяешь паскаль АБЦ из подмножества всех паскалей, значит или преподают вам из рук плохо, или ты на уроках дурака валяешь.
Но таки подскажем: после ввода данных надо часы и минуты перевести в минуты, примерно так: x = h*60+m. После найти самое маленькое из полученных чисел и преобразовать обратно: h = x div 60; m=x-h

Answer 2

## var s:=1000.0; var d:real; var a,b:integer; var n:=readinteger;
for var i:=1 to n do begin (a,b):=readinteger2; d:=a+b/100; if d<s then s:=d end;
writeln(floor(s),' ',frac(s)*100);