Если всё так как написанно, то программа вообще не скомпилируется. Должно быть
a:=1;b:=1;
while a<2 do
begin
b:=b+2;
end;
s:=a+b;
в теле цикла переменная а не изменяется, поэтому цикл будет бесконечным. То есть пока Ctrl-Break не нажмешь будет кажаться что программа зависла.
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var s:string; Writeln('Введите строку:'); Readln(s);
var s1:=ReadlnString('Что меняем:');
var s2:=ReadlnString('Чем заменить:');
s:=s.Replace(s1,s2);
Writeln('Результат'); Writeln(s)
end.
Пример
Введите строку:
(X > 0) and (Y < X) and (Z > Y) and (Z <> 5)
Что меняем: and
Чем заменить: &
Результат
(X > 0) & (Y < X) & (Z > Y) & (Z <> 5)
Ситуация 2. 8.2) Незаконность копирования чужих файлов со знаком ©
Var
a: array [1..4] of char;
i: integer;
begin
a[1] := 'S';
a[2] := 'I';
a[3] := 'M';
a[4] := 'A';
for i := 1 to 4 do
write(ord(a[i]) - 64, ' ');
end.
а самостоятельно подобрать число никак?
const n=10;
var a:array [1..n] of integer;
i,k:integer;
begin
write ('Массив: ');
for i:=1 to n do
begin
a[i]:=random(56);
if (a[i]>=12) and (a[i]<=34) then k:=k+1;
if i<>n then write (i,' элемент: ',a[i],'; ') else write (i,' элемент: ',a[i],' ')
end;
writeln;
writeln ('Количество элементов, значения которых попадают в интервал от 12 до 34, равно ',k)
end.