Пример вашей программы в прикрепленном файле
Var
b,i:integer;
S:string;
Begin
Readln(S);
b:=0;
For i:=1 to length(s) do
if i<length(s) then begin
if (s[i]='ж') or (s[i]='ш') then if s[i+1]='ы' then begin s[i+1]:='и'; b:=b+1; end;
End;
Writeln(b);
Writeln(s);
<span>End.</span>
Program z1;
Var c,i:integer;
Begin
Read (n,i);
If not(c=2) then
For i to 0 do
begin
c:=c+1;
i:=i-2;
end;
writeln(n);
end.
<!DOCTYPE html>
<html>
<head>
<script>
function BbIBOD()
{
let n = document.getElementById("BBOD").value;
let BbIBOD = document.getElementById("BbIBOD");
let S = "";
let F = "";
for (let j = 0; j < n; j++)
{
S += '*';
}
for (let i = 0; i < n; i++)
{
F += "<div>" + S + "</div>";
}
BbIBOD.innerHTML = F;
}
</script>
</head>
<body>
<form onSubmit="BbIBOD(); return false;">
<label for="BBOD" >n = </label><input id="BBOD" type="text">
<div id="BbIBOD"></div>
</form>
</body>
</html>
Program p1;
var n, i: integer;
begin
WriteLn('Введите n');
ReadLn(n);
for i := 1 to n do
WriteLn(i);
end.
===============
program p2;
var n, i: integer;
begin
WriteLn('Введите n');
ReadLn(n);
for i := n downto 1 do
WriteLn(i);
end.
===============
program p3;
var n, i: integer;
begin
WriteLn('Введите n');
ReadLn(n);
for i := 1 to n do
if i mod 3 = 0 then WriteLn(i);
end.
===============
program p4;
var n, i: integer;
begin
i := 1;
WriteLn('Введите n');
ReadLn(n);
while i <= n do
begin;
if i mod 3 = 0 then WriteLn(i);
i := i + 1;
end;
end.
===============
program p5;
var n, i: integer;
begin
WriteLn('Введите n');
ReadLn(n);
for i := 1 to n do
if i mod 2 = 0 then WriteLn(i);
end.
===============
program p6;
var n, i: integer;
begin
i := 1;
WriteLn('Введите n');
ReadLn(n);
while i <= n do
begin;
if i mod 2 = 0 then WriteLn(i);
i := i + 1;
end;
end.