<span>9 (10) - 13(10)=-4(10)=-4(16)</span>
Алгоритмов для решения существует большое количество, так как от перестановки слагаемых сумма не меняется. Главное, соблюдать определённое количество "шагов" кузнечика, а в данном случае это:
3 команды "вправо 5" и 2 команды "вправо 7". (5*3+7*2=29)
Program Amstrong;
var
a,b: integer;
i,j,k,
ci,
si,mi,
errkod: integer;
sti: string;
flag: Boolean;
begin
Readln(a,b);
flag:=false;
for i:=a to b do
begin
str(i, sti);
si:=0;
for j:=1 to Length(sti) do
begin
val(sti[j],mi,errkod);
ci:=1;
for k:=1 to Length(sti) do
ci:=ci*mi;
si:=si+ci;
end;
if si=i then
begin
write(si,' ');
flag:=true
end;
end;
if not flag then write(-1);
Readln;
end.
а) if (a>100) and (b>100) then
write('ISTENO');
б) if (a mod 2 = 0) or (b mod 2 =0) then
write('ISTENO');
в) if (a > 0) or (b>0) then
write('ISTENO');
г) if (a mod 3 = 0) and (b mod 3 = 0) and (c mod 3 = 0) then
write('ISTENO');
д) if ((a<50) and (b>50) and (c>50)) or ((a>50) and (b<50) and (c>50)) or ((a>50) and (b>50) and (c<50)) then
write('ISTENO');
е) if (a<0) or (b<0) or (c<0) then
write('ISTENO');