Программа получает новую цену товара в рублях с точностью до копеек (например, 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='')

Const     n = 30; var     t: array[1..n] of integer;     i,k: integer; begin write('температура в течение месяца: '); k: =0; for i: = 1 to n do       begin       t[i]: =random(20)-15;       write(' ',t[i]);       if t[i] < 0 then k: =k+1;       end; writeln; writeln('количество дней, когда температура опускалась ниже нуля: ',k); end. пример работы программы: температура в течение месяца: -3 -5 -4 1 -11 -5 0 2 2 4 3 -6 -7 -4 -14 -11 -15 -14 -15 0 -7 -14 -13 -13 -12 -1 -3 -13 -15 -5 количество дней, когда температура опускалась ниже нуля: 23

Const     n = 10; var     a,b: array[1..n] of integer;     i,k: integer;     sr: real; begin write('исходный массив: '); for i: = 1 to n do       begin       a[i]: =random(2*n+1)-n;       write(' ',a[i]);       sr: =sr+a[i]       end; sr: =sr/n; writeln; writeln('среднее арифметическое: ',sr); k: =0; write('новый массив: '); for i: = 1 to n do       if a[i]> sr then             begin             k: =k+1;             b[k]: =a[i];             write(' ',b[k])             end; end.