#include <iostream>
using namespace std;
int main() {
int i,n,k;
cout<<"Vvedite chislo elementov massiva: ";
cin>>n;
int a[n];
for (i=0; i<n; i++){
cout<<"Vvedite "<<i+1<<"-e chislo massiva: ";
cin>>a[i];
}
cout<<"Vvedite znachenie k: ";
cin>>k;
int m=0;
for(i=0;i<n;i++) if (abs(a[i])>2*k) m++;
cout<<"Naydeno elementov: "<<m<<"\n";
system("pause");
return 0;
}
<em><u>Тестовое решение:</u></em>
Vvedite chislo elementov massiva: 6
Vvedite 1-e chislo massiva: -7
Vvedite 2-e chislo massiva: 2
Vvedite 3-e chislo massiva: 0
Vvedite 4-e chislo massiva: -5
Vvedite 5-e chislo massiva: 8
Vvedite 6-e chislo massiva: 3
Vvedite znachenie k: 2
Naydeno elementov: 3
Для продолжения нажмите любую клавишу . . .
Uses Crt;
Var a,b,h:real;
Begin
ClrScr;
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('h = ');ReadLn(h);
Repeat
WriteLn('F(',a,') = ',Sin(1/a)+2);
a:=a+h;
Until a > b;
ReadKey
End.
126:2=63 ост=0
63:2=31 ост=1
31:2= 15 ост=1
15:2=7 ост=1
7:2=3 ост=1
3:2=1 ост =1
1:2=0 ост=1
126(10)=1111110 (2)
Я использую Corel Draw. Много лет с ней работаю - очень удобно. Кто то работает на PAGE MAKER, кто то еще на чем то. Кто к чему привык.
Program n1;
var i,n,sum: integer;
begin
readln(n);
sum:=0;
for i:=1 to n do sum:=sum+2*i;
writeln(sum);
end.
