Найти сумму двузначных натуральных чисел до N у которых цифры равны между собой....

Question

Найти сумму двузначных натуральных чисел до N у которых цифры равны между собой. Программа на паскале через цикл for

Comments

N<100 ?

---

N вводится с клавиатуры?

---

Да

Answer 1

Var
   N,S:integer;
Begin
WriteLn('Введите двузначное число: ');ReadLn(N);
S:=0;
For N:= 10 to N do
    if N div 10 = N mod 10 then S:=S+N;
WriteLn('S = ',S);
End.

Comments

Цикл должен точно выглядеть так for i:=10 to n do и нужно ведь найти сумму

---

хотя делай как знаешь, но нужна ведь сумма

---

Ну да, сумму, извините))

---

Исправил

---

Спасибо