Решение в приложении=====================
<span> малоразмерная цифровая видео или фотокамера, способная в реальном времени фиксировать изображения, предназначенные для дальнейшей передачи по сети Интернет (в программах типа Skype, Instant Messenger или в любом другом видеоприложении).</span><span>Веб-камеры, доставляющие изображения через интернет, закачивают изображения на веб-сервер либо по запросу, либо непрерывно, либо через регулярные промежутки времени. Это достигается путём подключения камеры к компьютеру или благодаря возможностям самой камеры. Некоторые современные модели обладают аппаратным и программным обеспечением, которое позволяет камере самостоятельно работать в качестве веб-сервера, FTP-сервера, FTP-клиента и (или) отсылать изображения электронной почтой.</span>
Var
a, b, d, y, x, x0: real;
begin
writeln('Пожалуйста, введите границы отрезка: ');
readln(a, b);
writeln('Пожалуйста, введите шаг: ');
readln(d);
y := sqr(x) + 1 / (x - 4);
x0 := a;
while (x0 <= b) do
begin
if ((x0 - 4) = 0) then writeln('Возникло деление на ноль!') else
writeln('Значение функции f(x) в точке x0 = ', x0, ' = ', sqr(x0) + 1 / (x0 - 4));
x0 := x0 + d;
end;
readln;
end.
Возможно 3 варианта перемещения:
ABCE - длина = 6
ABDE - длина = 7
ABE - длина = 8
Правильный ответ №2: кратчайший путь: ABCE = 6
Const
M = 3;
N = 3;
Var
A:array[1..M,1..N]of real;
B:array[1..N]of integer;
i,j:integer;
Begin
WriteLn('Заполни массив ',M,'x',N);
For i:= 1 to M do
For j:= 1 to N do
Read(A[i,j]);
For j:= 1 to N do
For i:= 1 to M do
if (A[i,j]>0) then B[j]:=B[j]+1;
j:=N;
For i:= 1 to N-1 do
if (B[j]>B[i]) then j:=i;
WriteLn(j)
End.