Question

Написать программу в Паскале:
Федоров, иванов и Петров выиграли вместе в лотарею а
рублей. Выигрыш Иванова составил к% от всей суммы.
Выигрыш Петрова - n% от суммы Иванова. Сколько Выиграл
каждый?

Answer 1

var

 a:real;

 k, n:real;

begin

 read(a, k ,n);

 write('Иванов: ', a*(k / 100),' Петров: ',(a*(k / 100))*(n / 100),' Федоров: ', a - (a*(k / 100)+ (a*(k / 100))*(n / 100) ));

end.