Программа получает новую цену товара в рублях с точностью до копеек (например, 10.15) и процент подорожания товара (может быть дробным числом). требуется вывести старую цену товара в формате x руб y коп. если цена товара меньше рубля, выводятся только копейки (например, 15 руб 10 коп)

есть обучающая :

«цена товара обозначена в рублях с точностью до копеек, то есть действительным числом с двумя цифрами после десятичной точки. запишите в две целочисленные переменные стоимость товара в виде целого числа рублей и целого числа копеек и выведитеих на экран. при решении этой нельзя пользоваться условными инструкциями и циклами.»

в тесты:

тест 1

входные данные:

1

10.35

вывод программы:

1

10 35

тест 2

входные данные:

1

1.99

вывод программы:

1

1 99

тест 3

входные данные:

1

3.50

вывод программы:

1

3 50

решение проходит вышеупомянутые тесты, а ещё: 0.01, 0.10, 40.80, 40.30, 1.01, 1.10

однако обучающая система выдаёт:

test 5

wrong answer.

с тестовым вариантом, который программа не пройдёт. не могу придумать что я не учитываю.

1

2

3

4

5

6

7

8

p = float(

r = int(p)

print(r, end=' ')

p *= 10

kk = p % 10

p *= 10

kd = p % 10

print(int(kk), int(kd), sep='')

Var n,m: integer; b: boolean; function fminmax(k: integer; d: boolean): integer; var a: array[1..30] of integer; j,max,min: integer; begin for j: = 1 to 30 do begin a[j]: = random(100)-50; write(a[j]: 4); end; max: = -100; min: =100; if b = true then  for j: = 1 to k do begin if max < a[j] then max : = a[j]; fminmax: =max; end else for j: = n to 30 do begin if min > a[j] then min : = a[j]; fminmax: =min; end; end; begin write ('введите число < 25'); read(n); write ('определять max(true -да, false- нет)'); read(b); m: = fminmax(n,b); writeln; if b = true then write('max = ',m) else write('min = ',m); end.