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

Question

Информатика

Стеша

27 мая, 23:02

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

+4

Ответы (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.