Студэнt
//PascalABC.Net 3.2 {1} begin var sum:=0; for var i:=1 to readinteger('Введите кол-во чисел: ') do sum+=readinteger; print ('Сумма:', sum); end.
{2} function f(n: integer):=1/n; begin var sum:=0.0; for var i:=1 to readinteger ('Введите n: ') do sum+=f(i); write ('S = ', sum); end.
{3} begin var count:=1; for var i:=1 to readinteger('Введите кол-во часов: ') div 3 do count*=2; write ('Кол-во амеб: ', count); end.
{4} begin var sum:=0.0; var x:=readreal ('Введите x: '); for var i:=1 to readinteger('Введите N: ') do sum+=sin(i*x); write (sum); end.
{5} function pow(a, n: integer):biginteger; begin var sum:=1; for var i:=1 to n do sum*=a; result:=sum; end;
Answers & Comments
{1}
begin
var sum:=0;
for var i:=1 to readinteger('Введите кол-во чисел: ') do sum+=readinteger;
print ('Сумма:', sum);
end.
{2}
function f(n: integer):=1/n;
begin
var sum:=0.0;
for var i:=1 to readinteger ('Введите n: ') do sum+=f(i);
write ('S = ', sum);
end.
{3}
begin
var count:=1;
for var i:=1 to readinteger('Введите кол-во часов: ') div 3 do count*=2;
write ('Кол-во амеб: ', count);
end.
{4}
begin
var sum:=0.0;
var x:=readreal ('Введите x: ');
for var i:=1 to readinteger('Введите N: ') do sum+=sin(i*x);
write (sum);
end.
{5}
function pow(a, n: integer):biginteger;
begin
var sum:=1;
for var i:=1 to n do sum*=a;
result:=sum;
end;
begin
write (pow(readinteger, readinteger));
end.