Найти сумму двухзначных чисел в которых цифра единиц больше десятков.(паскаль)
for i:=1 to 8 do for j:=i+1 to 9 do Write(10*i+j,' ');
Это сами числа. И добавьте суммирование.
Var i,sum,des,ed:integer; begin sum:=0; for i:=10 to 99 do begin des:=i div 10; ed:=i mod 10; if(desend; writeln("summa = ",sum); end.