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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.