Сорян паскаль не знаю , могу скинуть на С++
Разбираешься в инфе , поймёшь
#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 жылдан бастап компьютерлік ойындар ресми түрде АҚШ-та жеке көркемдік формасы ретінде танылды.
Видеоойындар деп теледидарға қосып ойнайтын, немесе ойын автоматтардағы ойындарды атайды.
Мобильді ойындар Ұялы телефондармен, смартфондармен, қалта компьютерлермен ойналатын бағдарламаларды атайды
Объяснение:
Если то и мне с последним во
// Внимание! Если программа не работает, обновите версию!
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