Найти в строке число S и увеличить его в 3 раза

@CreepiTall · Регистрация: 01.03.2009

Author24 — интернет-сервис помощи студентам

Ребят помогите пожалуйста,сижу уже несколько часов над задачами,осталось парочка,но мозг уже не воспринимает информацию.

1) Найти в строке число S и увеличить его в 3 раза. Результат вставить в исходную строку вместа числа S. Вывести на экран символьную строку до и после изменения.

Вот что набросал:

Pascal

var
a:string;
i:byte;
s:char;
x:real;
y:integer;
begin
write('Введите текст: ');
readln(a);
write('Введите число S: ');
readln(s);
writeln('Исходный текст: ',a);
for i:=1 to length(a) do
if a[i]=s then begin
               val(a,x,y);
               x:=x*3;
 
               end;
writeln('Изменённый текст: ',a);
readln;
end.

2) Переписать в предложении символы каждого нечётного слова в обратном порядке. Вывести на экран строку до и после изменения.

То,до чего я додумался:

Pascal

var
s:string;
i:byte;
begin
write('Введите текст: ');
readln(s);
writeln('Исходный текст: ',s);
if odd=true then
for i:=length(s) downto 1 do
writeln(s[i]);
readln;
end.

	26.10.2010, 18:41