// 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
Не совсем точно описал. если рандомом, то:
с++
#include<iostream.h>
int main(int argc, char* argv[])
{ setconsolecp(1251);
setconsoleoutputcp(1251);
float a,b,c;
cout<<"\nвведите 3 числа"<<endl;
cout<<'\na="; cin>>a>>endl;
cout<<"\nb="; cin>>b>>endl;
cout<<"\nc"; cin>>c>>endl;
<span>cout << </span>"RAND_MAX = " <span><< RAND_MAX << endl; </span> <span>cout << </span>"random number = " <span><< </span>rand() << endl;
cin>>rand()>>(a,b,c)>>endl;
system (pause);
return 0;
}
===== PascalABC.NET =====
begin
var n := ReadInteger('Длина массива:');
var (a, b) := ReadInteger2('Границы значений элементов [a, b]:');
var V := ArrRandom(n, a, b);
V.Println;
Writeln('Искомая сумма равна ', V.Where(p -> p < 9).Sum)
end.
#include <stdio.h>
int main(){
float x, y;
x = 3.5; y = 0; //Так как из задания не понятно, откуда берутся числа
if(x > 0){
float k = x*x + y*y;
if(k >= 3*3 && k<=5*5)
printf("Принадлежит");
else
printf("НЕ принадлежит");
}
return 0;
}