Первый вопрос б) банкоматы
Второй вопрос в)или д)
program raf105;
var
km,fut: real;
begin
write('Введите расстояние в километрах: ');
readln(km);
write('Введите расстояние в футах: ');
readln(fut);
write('Большее: ');
if km > fut * 0.00045 then writeln(km,' км.')
else writeln(fut,' фут.');
end.
<h3>PascalABC</h3>
Это типо угадай слово? - классификация
n = int(input())
h = 0
mm = 0
ss = 0
while(n > 3600):
h += 1
n -= 3600
while(n > 60):
mm += 1
n -= 60
ss = n
if(mm < 10):
mm = str(0) + str(mm)
if(ss < 10):
ss = str(0) + str(ss)
print(str(h) + ":" + str(mm) + ":" + str(ss))