Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Программа паскаль
Ввести число, определяющее стоимость покупки (например 123, 50). Вывести строку, определяющую стоимость с использованием текста (123 руб. 50 копеек).

Ответ оставил Гость

Var s,d,v:string;n,m:integer;
begin
Read(s);
n:=length(s);
m:=pos(.,s);
d:=copy(s,1,m-1);
v:=copy(s,m+1,n);
write(d, руб. ,v, копеек);
end.