Изменить цену товара, применив: copy, delete, val, str, insert.
Program Primer9;
uses crt;
var a,b: string;
x,y,p,r: integer;
Begin
clrscr;
a:='Цена товара 100 руб.'; { начальная фраза }
p:=pos('1',a); { позиция цифры 1 }
b:=copy(a,p,3); { вырезка числа 100 }
delete(a,p,3); { удаление числа 100 из фразы }
val(b,x,r); { преобразование '100' в число 100 }
y:=2*x; { изменение числа 100 }
str(y:4,b); { преобразование 200 в константу '200' }
insert(b,a,p); { вставка '200' }
writeln(a); { печать полученной фразы }
readkey;
End.
З А Д А Н И Я:
1. Набрать и исполнить программу.
2. Уменьшить начальную цену до 1 и получить 2000.
3. Из фразы "Сашеньке вчера исполняется 120 лет" получить фразу
"Саше завтра исполняется 12 лет", используя процедуры и функции.