Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.