Kinobyuvs
4 год назад
Цена товара обозначена в рублях с точностью до копеек, то есть вещественным числом с двумя цифрами после десятичной точки. В целочисленных переменных получите и выдайте значения целого числа рублей и целого числа копеек в цене товара.
ОТВЕТЫ
Arkadij
Oct 24, 2020
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.
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.
506
Смежные вопросы:
