Ответ:
Так у Вас там пароль: P7ypbqi6
Но если не сможете решить эту проблему, то позвоните в техническую поддержку Ростелеком.
Program Integer13;
var x,a,b,c,p:integer;
begin
Writeln('Vvedite chislo ');
readln(x);
a:=x div 100;
c:=x mod 100;
p:=c*10+a;
Writeln ('Result= ',p);
readln;
end.
Ты объявила массив от 1 до 10, а в конце в цикле пытаешься обратиться к элементу с индексом 0!
(for i:=0 to m do
<span>begin for j:=0 to n do)
Ну и куча мелких недочетов еще тут есть
const
n=5;
m=6;
var
a:array[1..n,1..m] of integer;
i,j: integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10);
write(a[i,j]:4);
end;
writeln;
end;
writeln('Измененный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
if a[i,j]=0 then a[i,j]:=i+j;
write(a[i,j]:4);
end;
writeln;
end;
<span>end.</span></span>
Программа запросит ввод значений Х1 и Х2 (третья строка). После того, как пользователь введёт эти значения, на экран будет выведена их сумма.
Например, если пользователь введёт числа 12 и 15, то на экран будет выведено: "27"