Не пользуясь формулой суммы найти сумму членов прогрессии заданной начальным членом, количеством членов прогрессии и ее знаменателем. используйте для решений цикл с шагом. ( pascalabc.net )

// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,q):=ReadReal2('Введите начальный член и знаменатель:');
  var n:=ReadInteger('Введите количество членов прогрессии:');
  var s:=a;
  for var i:=2 to n do begin a*=q; s+=a end;
  Writeln('Сумма членов прогрессии равна ',s)
end.

Пример
Введите начальный член и знаменатель: 1.25 0.13
Введите количество членов прогрессии: 15
Сумма членов прогрессии равна 1.43678160919533

Сорян паскаль не знаю , могу скинуть на С++

Разбираешься в инфе , поймёшь

#include <iostream>

using namespace std ;

int main {

\\ не важно что выше

 

int num , k , o , s , l; \\ объявляем числа  

l, o , s , k ,num = 0 ;  \\ чтобы в компиле гадости не было

cin >> num >> k ; \\ вводим их c клавы

while (num >= 1) {

 s = num ;

 o = s%10 ;

     if (o <= k){ // цикл на проверку условию задачи

     l += 1 ;

     }

 num = num % 10 ;

}

cout << l ; // выводим ответ

\\ не важно что ниже

return 0 ;

}

Компьютерлік ойын — ойнауға арналған компьютерлік бағдарлама. Оларға сондай-ақ видеоойындар мен мобильді ойындар да жатады. Қазіргі уақытта компьютерлік ойынды көбінесе видео ойын деп атайды, басқа сөзбен айтқанда, ойын жағдайы экран дисплейіне немесе теледидарға беріледі. Ойындар кітап немесе фильмдер негізінде жасалуы мүмкін. Кері болған жағдайлар да бар. 2011 жылдан бастап компьютерлік ойындар ресми түрде АҚШ-та жеке көркемдік формасы ретінде танылды.

Видеоойындар деп теледидарға қосып ойнайтын, немесе ойын автоматтардағы ойындарды атайды.

Мобильді ойындар Ұялы телефондармен, смартфондармен, қалта компьютерлермен ойналатын бағдарламаларды атайды

Объяснение:

Если то и мне с последним во