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

Question

Информатика

Аполлон

1 апреля, 15:36

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

+3

Ответы (1)

Знаете ответ?

Плакида · 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 (des
end;

writeln ("summa = ", sum) ;

end.