даю 25 баловНа паскаледано целое число n (1<=n<=9999), определяющее стоимость товара в...

Question

даю 25 балов
На паскале
дано целое число n (1<=n<=9999), определяющее стоимость товара в копейках . Выразить стоимость в рублях и копейках.<br>Пример: 3 рубля 21 копейка

Answer 1

Program z1;
var n,r,k: integer;
begin
writeln('Введите число');
readln(n);
r:=n div 100;
k:=n-r*100;
writeln(n,' = ',r,' рубля ',k,' копейка');
end.