| = ИЛИ
& = И. Т.е (сомики И меченосцы) ИЛИ гуппи
получается если сомики И меченосцы - 100 запросов,
гуппи 500
100+500=600
Ответ 600 запросов
1)
// PascalABC.NET 3.3
begin
var n:=readInteger;
writeln(SeqGen(n,2,x->x+2).Sum);
end.
2)
var n,s,i:integer;
begin
readln(n);
s:=0;
for i:=1 to n do s:=s+2*i;
writeln(s);
end.
Пример:
5
30
#include <iostream>
#include <clocale>
#include <cmath>
using namespace std;
void main()
{
setlocale(LC_CTYPE,"rus");
int x, sum=0;
cout<<"Введите переменную: ";
cin>>x;
for(int i=1; i<x;i++)
{
if(x%i==0)
sum+=i;
}
if(x==sum)
{cout<<"Это совершенное число"<<endl;}
else
{cout<<"Это несовершенное число"<<endl;}
<span>}</span>
64*64*16*1024=<span>
<span>67108864бит/8/1024/1024=8Мбайт</span></span>
Вот, например программа поиска корня уравнения методом ДИХОТОМИИ:
program dichotom;
uses Crt;
var a, b, eps, xn, y, psy: real;
n: integer;
function f(x:real):real;
begin
f:=sin(x)-1/x;
end;
begin
ClrScr;
a:=2;
b:=3;
eps:=0.01;
n:=0;
y:=f(a);
while y>=eps do
begin
n:=n+1;
xn:=(a+b)/2;
y:=f(xn);
if y>=eps then
if f(a)*y<0 then b:=xn else a:=xn;
end;
psy:=xn;
WriteLn(' X = ',psy:5:2);
ReadLn;
end.