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

0 голосов
23 просмотров

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


Информатика (15 баллов) | 23 просмотров
0

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

0

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

Дан 1 ответ
0 голосов
Правильный ответ

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.

(14.6k баллов)