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

Question

Информатика

Лавря

10 апреля, 04:01

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

+5

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