Я тут немного написал вашу задачу Хелен, только сам озадачился как это закончить. Смысл в том, что я рандомом беру число двухзначное и к нему уже добавляю числа в обратном порядке, только не могу написать ограничение, на то когда сумма чисел превышает сотню. Если кто нибудь поможет, я думаю мы справимся с этой программкой. Сам писал в PascalABC.
Вот код:
Код:
Program num;
uses crt;
var
x,y,z,i,t,p,s,q,d,a,j,b,c:integer;
begin
randomize;
repeat
x:=random(70);
y:=x mod 10;
z:=x div 10;
until y+1=z;
write(x);
q:=y;
d:=10;
for i:=1 to 50 do
begin
p:=random(9);
if(p+1=q)
then
begin
write('+',p);
t:=t+p;
if(p=0) or (p=00)
then
begin
repeat
j:=j+d;
d:=d-1;
write('+',d);
until d=z+1;
end;
q:=q-1;
end;
end;
if(x+t>=100)
then
begin
repeat
b:=(x+t-100);
write('-',b);
c:=d-b;
until c=100;
writeln('limit = ',t+j+x);
end
else
begin
writeln('=',t+j+x);
writeln('symma ne ravna; 100');
end;
end.