Решить при таблицы истинности однажды князь владимир призвал к себе трёх богатырей: «кто поймал соловья-разбойника? » негоже хвастать. поэтому мы решили, что каждый будет трижды речь держать. два раза скажет правду, а единожды слукавит. после этого сам решай, кто поймал соловья-разбойника. рассказ богатырей: добрыня никитич: «это сделал алёша попович» алёша попович: «я совершил этот подвиг» илья муромец: «это сделал не я» добрыня никитич: «много на руси храбрых воинов» алёша попович: «это сделал не я» илья муромец: «я был в это время в другом месте» добрыня никитич: «я знаю где жил соловей-разбойник» алёша попович: «илья в это время был в другом месте» илья муромец: «это сделал алёша попович»

Смотри, илья муромец сразу отпадает это либо добрыня либо алёша

Язык не указан, предположим что нужен кто то из популярных: Паскаль или Питон.

PascalABC.NET:

#1 (По умному)

begin

 var a := Range(1, ReadInteger('N = '));

 a.Sum.Println;

 a.Aggregate(BigInteger.One, (p, q) -> p*q).Println;

end.

#2 "А нас учили по другому"

begin

 var N := ReadInteger();

 var sum:int64 := 0;

 var prod:BigInteger := 1;  //Для большого N произведение не влезет в int64, по этому юзаем бесконечное целое число BigInteger

 for var i := 1 to N do begin

   sum += i;

   prod *= i;

 end;

 Println(sum, prod);

end.

#3 Вариант на Питоне

summ, prod = 0, 1

for i in range(1, int(input())+1):

   summ += i; prod *= i

print(summ, prod)

Объяснение:

#include<fstream>

#include <iostream>

#include <algorithm>

#include <string>

#include <map>

int main()  

{

std::string fname;

//ввод названия текстового файла

std::cin >> fname;

std::ifstream file(fname);

std::string text((std::istreambuf_iterator<char>(file)) ,std::istreambuf_iterator<char>());

file.close();

std::map<char, char> rs = {{'9', '0'}};

for (char i = '0'; i < '9'; ++i) rs.insert({ i,i+1 });

char r;

std::replace_if(text.begin(), text.end(), [&](char c) { return r = rs[c]; }, r);

std::ofstream out("result.txt");

out << text << std::endl;

out.close();

return 0;

}