Rem BASIC-256 cls errors = 0 print "Введите текст > ";
rem Пользователь вводит текст input a$
rem Перебираем все буквы с начала и до предпоследней for i=1 to length(a$)-1
rem Если встречаем букву Ч или Щ if mid(a$, i, 1) = "ч" or mid(a$, i, 1) = "щ" then
rem Тогда проверяем следующую за ней букву. rem Если это буква я, тогда подсчитываем очередную ошибку if mid(a$, i + 1, 1) = "я" then errors = errors + 1 end if
rem Переходим к следующей букве next i
rem Вывод результата print "Количество ошибок в тексте "; print errors
#include <iostream>
#include <cmath>
using namespace std;
typedef long long ll;
ll fact(ll n){
if(n == 1 || n == 0)
return 1;
return n * fact(n - 1);
}
int main(){
ll t = 1;
while(fact(t) < 1000)
t++;
while(fact(t) <= 10000){
cout << fact(t) << " ";
t++;
}
}