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

Question

Информатика

Дарюша

19 ноября, 20:42

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

+2

Ответы (1)

Знаете ответ на вопрос?

Кириана · 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.