Если программу отправляете в систему проверки,то уберите помеченную строку
Var y,x: string;
i,k: integer;
begin
k=0;
read (x);
for i:=1 to length(x) do
begin
y:=copy(x, i,3);
If (y='sin') then begin
delete (x, i, 3);
insert ('cos', x, i);
k:=k+1;
end;
writeln (x);
writeln (k);
end.
Program t1;
var n,i: integer;
begin
writeln('Введите число :');
readln(n);
writeln('Результат :');
for i:=1 to 10 do
begin
writeln(n*i);
end;
readln;
<span>end.</span>
1. x = 5
2. y = 4
3. x = 5 + 4 = 9
4. y = 9 - 4 = 5
5. x = 9 - 5 = 4
6. s = 4 div 2 + y mod 3 = 2 + 2 = 4
Soni Vegas pro
photohop plus
YouTyb
Windovs 10
вот и всё