Question

Помогите пожалуйста. Это работа на компьютере. Создайте проект, в котором можно вычислить количество двузначных
чисел среди чисел, первое из которых равно 10, а каждое последующее
больше предыдущего на заданное положительное число. Буду благодарна за помощь в решении.

Answer 1

Программа на Python:

n, q = int(input('Задайте последнее число цикла: ')), int(input('Задайте значение возрастания чисел: '))

l = 10

count = 0

a = [10]

for i in range(n-1):

   l+= q

   x = l

   count = 0

   while x:

       count += 1

       x //= 10

   if count == 2:

       a.append(l)

print('Двузначные числа:', *a)

Программа на PascalABC.NET:

var n, q, x, count, m, count1, l, i: integer;

a: array[1..100] of integer;

begin

l := 10;

a[1] := 10;

count := 0;

count1 := 1;

writeln('Задайте последнее число цикла: ');

readln(n);

writeln('Задайте значение возрастания чисел: ');

readln(q);

for i:= 1 to n-1 do begin

l := l + q;

x := l;

count := 0;

while x <> 0 do begin

count := count + 1;

x := x div 10;

end;

if count = 2 then begin

count1 := count1 + 1;

a[count1] := l;

end;

end;

write('Двузначные числа: ');

for m:=1 to count1 do begin

write(' ', a[m]);

end;

end.