var
a, b, c:real;
begin
write('A = '); readln(a);
write('B = '); readln(b);
write('C = '); readln(c);
if abs(A - B )< abs(A - C) then
writeln('точка B расположена ближе к точке А, чем точка С. Расстояние от А до B: ', abs(A - B))
else
if abs(A - B ) > abs(A - C) then
writeln('точка С расположена ближе к точке А, чем точка B. Расстояние от А до С: ', abs(A - C))
else
writeln('Точки B и C находятся на одинковом расстоянии от точки А равном: ', abs(A - C));
end.
var
d:integer;
a,b:real;
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('Введите номер операции '); readln(d);
case d of
1: writeln(a, ' + ', b, ' = ', a + b);
2: writeln(a, ' - ', b, ' = ', a - b);
3: writeln(a, ' * ', b, ' = ', a * b);
4: begin
if b <> 0 then
writeln(a, ' / ', b, ' = ', a / b)
else
writeln('делить на 0 нельзя');
end;
else
writeln('Неизвестная операция');
end;
end.
//вторая программа
var
d:integer;
a:real;
begin
write('Длина отрезка = '); readln(a);
write('Введите код единицы измерения '); readln(d);
case d of
1: writeln('Длина отрезка ', a / 10, ' метр(а, ов)');
2: writeln('Длина отрезка ', a * 1000, ' метр(а, ов)');
3: writeln('Длина отрезка ', a, ' метр(а, ов)');
4: writeln('Длина отрезка ', a / 1000, ' метр(а, ов)');
5: writeln('Длина отрезка ', a / 100, ' метр(а, ов)');
else
writeln('Неизвестная единица длины');
end;
end.
var c:array[1..n] of integer;
s,k,i:integer;
begin
k:=0;
s:=0;
for i:=1 to n do begin
c[i]:=random(10)+1;
write(c[i]:4);
end;
writeln;
for i:=1 to n do
if c[i] mod 2=0 then s:=s+c[i]
else k:=k+1;
writeln('сумма четных элементов = ',s);
writeln('кол-во нечетных чисел= ', k);
end.