// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var n:=ReadInteger('n=');
var s:=BigInteger(0);
var p:=Biginteger(1);
for var i:=1 to n do begin p*=i; s+=p end;
Print(s)
end.
Тестовые решения
n= 5
153
n= 10
4037913
n= 50
31035053229546199656252032972759319953190362094566672920420940313
Ответ:
243
Объяснение:
используются 0, 1, 2 - это система счисления по основанию 3
позиций 5: от 00000 до 22222
всего возможных чисел = 3 в степени 5 = 243
var
i, b:integer;
begin
write('b = ');
readln(b);
for i := 10 to b do
writeln(i, ' * ', i, ' = ', i*i);
readln;
end.
//вторая задача
var
a, b, i:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
for i := a + 1 to b - 1 do
write(i, ' ');
readln;
end.
//Dev-C++ 4.9.9.2
#include <iostream>
using namespace std;
int main(){
int k=1;
int ar[4];
for(int i=0;i<4;i++){
cin>>ar[i];
k=k*ar[i];}
cout<<k;
cin.get();
cin.get();
return 0;
}
Пример ввода:
1
2
3
4
Пример вывода:
24