Найти сумму двухзначных чисел в которых цифра единиц больше десятков.(паскаль)

Question

Найти сумму двухзначных чисел в которых цифра единиц больше десятков.(паскаль)

Comments

for i:=1 to 8 do for j:=i+1 to 9 do Write(10*i+j,' ');

---

Это сами числа. И добавьте суммирование.

Answer 1

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.