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

nadezda19831 nadezda19831    2   04.10.2019 04:10    2

Ответы
Luuunar Luuunar  09.10.2020 18:47

var n,k,i,s: integer;

begin

write('n = ');

readln(n);

if n<100 then k:=n else k:=99;

s:=0;

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

writeln('s = ',s);

end.

Пример:

n = 40

s = 66

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика