Это номер столбца и строки
Var Y,a,x:real;
c:Integer;
begin
read(a);
x:=0.5;
while x<=4.5 do begin
Y:=a+sqr(x);
writeln('x:',x:2:2,' Y:',Y:2:2);
c:=c+1;
x:=x+0.3;
end;
write('Среднее арифмитическое:',Y/c:2:2);
end.
я думаю что эт правильно
<span>С развитием компьютерной техники появился новый уникальный метод исследования -- компьютерный эксперимент. </span>
Int main(0
{
int n,i;
cin>>n;
if(n<=3)
{
cout<<"F(n) = "<<n+4<<endl;
}
if(n>3)
{
cout<<"F(n) = "<<(n-1)*(n*2)+3
}
system("pause");
return 0;
}
Надеюсь правильно понял то что надо сделать)
===== PascalABC.NET =====
begin
ArrRandom(10, -99, 99)
.Println
.Where(p -> p.IsOdd)
.Sum
.Println
end.