Ответ: 3
Объяснение: Допустим, 123. Всё неправильно. Тогда 312. Если опять не сошлось, то остаётся только 231.
Программа для машины Поста - в прилагаемом файле.
Программа выполнена в тренажере К Полякова.
а) если уменьшаемое равно вычитаемому, то на ленте останется одна метка (что соответствует значению 0);
б) если уменьшаемое меньше вычитаемого, то будет ошибка "Повторное стирание метки".
Const n=3;
var a:array[1..n,1..n] of integer;
i,j,c:integer;
begin
Randomize;
writeln('Исходная матрица:');
for i:= 1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n do
for j:=i+1 to n do
begin c:=a[i,j]; a[i,j]:=a[j,i]; a[j,i]:=c; end;
writeln('Транспонированная матрица:');
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
end.
Пример:
Исходная матрица:
1 4 4
8 3 9
8 2 1
Транспонированная матрица:
1 8 8
4 3 2
4 9 1
1. a)
2. a)
3. c)
4. a)
5. с)
6. с)
7. d)
8. 20
9.
1) После example4 не стоит ;
2) Вместо red нужно read в обоих случаях
3) Вместо c=e нужно c:=e
4) После c:=a не стоит ;
10. Не понял как делать, возможно так:
(-23+(-22)+(-21)+(-20)+(-19)+(-18)+(-17)+(-16)+(-15)+(-14)+(-13)+(-12)+(-11)+(-10)+(-9)+(-8)+(-7)+(-6)+(-5)+(-4)+(-3)+(-2)+(-1)+0+1+2+3+4+5+6+7+8+9+10+11+12+13+14+15+16+17+18+19+20+21+22+23+24+25+26+27+28+29+30+31+32+33+34) / 58 = 319 / 58 = 5,5
Последнее скорее всего не правильно) Извиняй)
Var
F: real;
begin
F:= 4.25;
write(trunc(F) - (F - trunc(F)));
end.