Const r1=20.0;
var R2,Pi:real;
begin
Pi:=4*arctan(1);
writeln('Введите радиус'); readln(R2);
writeln('Результат: ',Pi*(sqr(R2)-sqr(r1)))
end.
1 Мбайт =2^23 бита
1024 =2^10
2^23 : 2^10=2^13 бита - объём сообщения
1024 =2^10 cимволов - длина сообщения
2^13 : 2^10 =2^3 =8 бит - один символ
2^8 =256 символов - мощность алфавита (количество символов в алфавите)
#include <iostream>
using namespace std;
int main()
{
int n, k;
cout << "n = ";
cin >> n;
cout << endl;
int a[n];
for (int i = 0; i < n; i++) {
cout << "a[" << i << "] = ";
cin >> a[i];
cout << endl;
}
cout << "k = ";
cin >> k;
cout << endl;
int c = 0;
for (int i = 0; i < n; i++) {
if (a[i] % 10 == k) c++;
}
int ret[c], pos = 0;
for (int i = 0; i < n; i++) {
if (a[i] % 10 == k) {
ret[pos] = a[i];
pos++;
}
}
cout << "Результат:" << endl;
for (int i = 0; i < c; i++) {
cout << ret[i] << ' ';
}
return 0;
}
Можно задачу решать так, как показано ниже (с использованием констант), а можно все данные вводить с клавиатуры.
const xn=-1.5; xk=1.5; h=0.1; b=2;
var x,y:real; i,n:integer;
begin
x:=xn-h;
n:=round((xk-xn)/h)+1;
writeln(' x y');
for i:=1 to n do
begin
x:=x+h;
if x<1 then y:=x*x-b*sqrt(abs(b*b-x))
else if x<9 then y:=cos(2*x)-x*x*x
else y:=ln(abs(2.7*x*x-exp(x)));
writeln(x:4:1,y:8:3);
end;
<span>end.
</span>
1-а
2-b
3-a,c
4-c
5-b или c
6-c
7-a
8-b или c
9 не видно