var s:string; k:integer; begin Write('Введите слово: '); Readln(s); Write('Какую по порядку букву удалить? '); Read(k); Delete(s,k,1); Writeln('Результат: ',s) end.
Вариант с функцией Copy
var s:string; k,n:integer; begin Write('Введите слово: '); Readln(s); Write('Какую по порядку букву удалить? '); Read(k); n:=Length(s); s:=Copy(s,1,k-1)+Copy(s,k+1,n-k); Writeln('Результат: ',s) end.
Вариант с циклами
var s,s1:string; k,i,n:integer; begin Write('Введите слово: '); Readln(s); Write('Какую по порядку букву удалить? '); Read(k); n:=Length(s); s1:=''; for i:=1 to k-1 do s1:=s1+s[i]; for i:=k+1 to n do s1:=s1+s[i]; Writeln('Результат: ',s1) end.
Тестовое решение (одинаково для всех вариантов): Введите слово: Таракан Какую по порядку букву удалить? 4 Результат: Таркан
Var S:real; N:integer; Begin //Первый S:=0; For N:= 1 to 50 do S:=S+1/N; WriteLn('S = ',S);
//Второй S:=0; N:=0; Repeat N:=N+1; S:=S+1/N; Until N = 50; WriteLn('S = ',S);
//Третий S:=0; N:=0; While N<>50 do Begin N:=N+1; S:=S+1/N; End; WriteLn('S = ',S);
End.
Var X:real; Begin X:=-3; Repeat WriteLn(X:4:1,' ',((3*X*X-2)/4):6:3); X:=X+0.2; Until X>3; End.
Var A:real; i,k:integer; Begin k:=0; WriteLn('Введите 10 чисел'); For i:= 1 to 10 do Begin Read(A); if A<0 then k:=k+1; End; WriteLn('Кол-во отрицательных: ',k); End.
var
s:string;
k:integer;
begin
Write('Введите слово: '); Readln(s);
Write('Какую по порядку букву удалить? '); Read(k);
Delete(s,k,1);
Writeln('Результат: ',s)
end.
Вариант с функцией Copy
var
s:string;
k,n:integer;
begin
Write('Введите слово: '); Readln(s);
Write('Какую по порядку букву удалить? '); Read(k);
n:=Length(s);
s:=Copy(s,1,k-1)+Copy(s,k+1,n-k);
Writeln('Результат: ',s)
end.
Вариант с циклами
var
s,s1:string;
k,i,n:integer;
begin
Write('Введите слово: '); Readln(s);
Write('Какую по порядку букву удалить? '); Read(k);
n:=Length(s);
s1:='';
for i:=1 to k-1 do s1:=s1+s[i];
for i:=k+1 to n do s1:=s1+s[i];
Writeln('Результат: ',s1)
end.
Тестовое решение (одинаково для всех вариантов):
Введите слово: Таракан
Какую по порядку букву удалить? 4
Результат: Таркан
Блок-схемы всех вариантов находятся во вложениях