Исходник во вложении.
P.S.Правда не совсем удачная реализация...
В условии задания не сказано, запрещено ли роботу ходить по закрашенным клеткам или нет,поэтому будем считать что разрешено.
a) начало
пока справа свободно (если закрашено (вниз,закрасить,вверх; ) вправо)
если закрашено (вниз,закрасить ;)
конец.
В данном алгоритме робот идет направо,пока не достигнет конца. При каждом смещении вправо он проверяет,на какой клетке стоит : если клетка,на которой стоит робот закрашена, то он закрашивает клетку под ней. После цикла делается ещё одна проверка,так как робот, находясь на последней клетке справа не будет заходить внутрь цикла, так как условие "пока справа свободно" не выполнится, поэтому добавим ещё одну проверку после цикла для последней клетки.
б) Здесь алгоритм аналогичный, только добавляется ещё заход в верхнюю клетку для закраски.
начало
пока справа свободно (если клетка закрашена (вверх, закрасить, вниз, вниз, закрасить, вверх; ) вправо)
если клетка закрашена (вверх,закрасить,вниз,вниз,закрасить)
конец.
Парень, я программирую на C++, но вот решение 1.
#include <iostream>
using namespace std;
int main(){ int x,n; cout << "Vvedite x,n"<<endl; cin>>x>>n; for (int i=1;i<=n;i++) { cout<<x<<endl; x=x+5; } return 0;}
Ответ:
5.17 бит, 1.17 бит.
Объяснение:
а) в колоде одна дама пик, поэтому шанс ее достать равен 1 из 36.
По формуле Хартли получаем ㏒₂36 бит. Или, примерно, 5.17 бит.
б) Старше десятки в колоде из 36 карт будут валет, дама, король и туз. 4 карты одной масти. Мастей 4, поэтому всего таких карт 4×4=16. Шанс достать такую карту равен 16 из 36 или 4 из 9. Снова по формуле Хартли
получаем ㏒₂(9/4) бит. Или, примерно, 1.17 бит.
Var a:array[1..15]of integer;
i,max:integer;
Begin
for i:= 1 to 15 do
a[i]:=random(100);
max:= a[1]+a[2];
for i:= 1 to 14 do
if max < a[i]+a[i+1] then
max := a[i]+a[i+1];
writeln(max);
End.
