Это программа для суммы двух чисел:
program summa;
var a,b,c: real;
begin
read (a,b);
c:=a+b;
write (c);
end.
это программа для разности двух чисел:
program raznost;
var a,b,c: real;
begin
read (a,b);
c:=a-b;
write (c);
end.
А = 1
Б = А = 1
В = А + Б = 1 + 1 = 2
Д = А = 1
Г = А + Д = 1 + 1 = 2
Е = Б + В + А + Г + Д = 1 + 2 + 1 + 2 + 1 = 7
К = Б = 1
Л = Д = 1
М = К + Е + Л = 1 + 7 + 1 = 9
Н = К + М + Л = 1 + 9 + 1 = 11
П = Н = 11
Р = Н = 11
Т = П + Р = 11 + 11 = 22
Ф = П + Т + Р = 11 + 22 + 11 = 44
Ответ: 44
{
Если что, часть программы не нужна для построения цепочки. Она просто иллюстрирует, что полученный результат верен.
}
var
sq : array[0..999] of array[0..9] of boolean;
co : array[0..999] of integer;
ar : array[1..10003] of 0..9;
i,j: integer;
x: integer;
t : boolean;
begin
for i := 0 to 999 do
begin
for j := 0 to 9 do
sq[i][j] := false;
co[i] := 0;
end;
for i := 1 to 3 do
ar[i] := 0;
i := 3;
t := true;
{write('000');}
while t do
begin
i := i + 1;
x := ar[i-3]*100 + ar[i-2]*10 + ar[i-1];
if co[x] >= 10 then t := false
else
begin
j := 1;
while sq[x][j] do
j := (j + 1) mod 10;
ar[i] := j;
sq[x][j] := true;
co[x] := co[x] + 1;
{write(j)}
end;
end;
{writeln;}
writeln('Length: ',i - 1);
{просто чтобы убедиться}
for i := 0 to 999 do
for j := 0 to 9 do
sq[i][j] := false;
t := true;
j := 0;
i := 1;
while (i <= 10000) and t do
begin
x := ar[i] * 100 + ar[i+1] * 10 + ar[i+2];
if sq[x][ar[i+3]] then t := false
else
begin
sq[x][ar[i+3]] := true;
j := j + 1;
end;
i := i + 1
end;
if t and (j = 10000) then
write('Confirmed')
<span>end.</span>
Первоначально в ячейки с номерами от 0 до 99 были записаны числа от 1 до 100. Таким образом, в ячейке с номером 18 было записано значение 19.
19 - это нечетное простое число, следовательно, ячейка, в которой оно было записано, обнулится.
Ответ: а) 0
Что-то такое получилось, пиши в комменты если что не так:
var
a,b,k:longint;
begin
b:=1;
k:=0;
while b<10000 do
begin
read(a);
b:=b*a;
k:=k+1;
end;
writeln('Kol:',k);
writeln('Number:',b);
readln
end.