1) int d; std::cin >> d;
const int pi = 3.14;
double L = pi * d;
std::cout << L << std::endl;
2) int R; std::cin >> R;
const int pi = 3.14;
double L = 2*pi*R;
double S = pi * R * R;
std::cout << L << S << std::endl;
3) int a,b; std::cin >> a >> b;
int c = (a+b) / 2;
std::cout << c << std::endl;
Program pm;
uses crt;
var X:array[1..1000] of integer; k,a,b,i:integer;
begin
clrscr;
write('Введите кол-во элементов массива: ');
read(k);
writeln;
write('Введите диапазон значений заполнения(A-начальное значение, B-конечное): ');
repeat
read(a,b);
until a<=b;
writeln;
randomize;
for i:=1 to k do X[i]:=random(b-a+1)+a;
writeln('Ваш массив:');
for i:=1 to k do write(X[i]:5);
writeln;
write('Введите элемент поиска: ');
read(b);
a:=0;
for i:=1 to k do if X[i]=b then a:=i;
if a>0 then writeln('Элемент со значением ',b,' имеет индекс ',a)
else writeln('Элемента не существует!');
readkey;
<span>end.</span>
var
a, s_p, s_o: integer;
begin
s_o := 1;
s_p := 0;
repeat
readln(a);
if(a < 0) then s_o := s_o * a else
s_p := s_p + a;
until(a = 0);
writeln('Произведение отр.: ', s_o);
writeln('Сумма пол.: ', s_p);
end.
Поскольку время передачи файла одинаковое, узнаем во сколько раз уменьшилась скорость передачи:
v₁/v₂ = 3072/256= 12
Таким образом объем информации тоже уменьшится в 12 раз:
60 Кбайт/12= 5 Кбайт
var a,b, P: real;
begin
write(' Введите длины сторон прямоугольника: ');
readln(a,b);
P:=2*(a+b);
write('периметр (P) = ',P);
readln;
end.