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

Question

Информатика

Иулиания

28 сентября, 06:40

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

+1

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