Дан алгоритм для Робота:
алг
нач
нц 27 раз
вправо; закрасить
КЦ
кон
ОЕсли правее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится
на 27 клеток вправо и закрасит эти клетки.
ОЕсли правее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится
на 27 клеток вправо.
ОЕсли правее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится
на п клеток вправо и закрасит эти клетки.
ОЕсли левее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится
на 27 клеток влево и закрасит эти клетки.
ответить!
лава РУС
1)
Program dasf;
var b,c,i: integer;
A: Array[1..100] of real;
D: Array[1..100] of real;
begin
Writeln('Введите размерность массива D');
readln(b);
For i:=1 to b do
begin
Writeln('Введите элемент массива №',i);
readln(D[i]);
end;
Writeln('Массив А:');
For i:=1 to b do
begin
If i mod 2=1 then A[i]:=5+(D[i]*D[i])
else A[i]:=D[i]/i;
Writeln(A[i]);
end;
end.
2)
Program fgsadg;
var i,b,x,y,z,k,t: integer;
begin
Writeln('Введите сколько чисел будет использоваться:');
readln(b);
Writeln('Введите х:');
readln(x);
Writeln('Введите число №',1);
readln(z);
k:=0;
For i:=2 to b do
begin
Writeln('Введите число №',i);
readln(y);
If z+y=x then k:=k+1;
z:=y;
end;
Writeln(k);
end.
Если что-то не будет работать - отпиши, мог кое-что удалить случайно при переносе.
Построить схему машинного алгоритма и составить Паскаль- программу решения задачи с оператора выбора Case по варианту условия, определяемому номером бригады (табл. 7.1). Необходимые значения селектора n для каждой из ветвей вычислять по формуле, приведенной в 4-й колонке таблицы.
Объяснение:
Построить схему машинного алгоритма и составить Паскаль- программу решения задачи с оператора выбора Case по варианту условия, определяемому номером бригады (табл. 7.1). Необходимые значения селектора n для каждой из ветвей вычислять по формуле, приведенной в 4-й колонке таблицы.
.
.
.
.
дпьащатш