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

Question

Информатика

Спиридон

2 августа, 02:03

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

+4

Ответы (1)

Знаете ответ?

Салтан · Answer 1

Program n1;

var a: real;

r, k: integer;

begin

readln (a) ;

r:=trunc (a) ;

k:=trunc (a*100) ;

k: = (k mod 100) ;

writeln ('рубли:', r) ;

writeln ('копейки:', k) ;

end.