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

Question

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

Answer 1

var n,k,i,s: integer;

begin

write('n = ');

readln(n);

if n<100 then k:=n else k:=99;</p>

s:=0;

for i:=1 to k div 11 do s:=s+i*11;

writeln('s = ',s);

end.

Пример:

n = 40

s = 66