PascalABC

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

Question

Информатика

Танюха

21 октября, 08:46

PascalABC

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

+3

Ответы (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.