Система команд исполнителя робот, “живущего” в прямоугольном лабиринте на клетчатой плоскости:

вверх
вниз
влево
вправо

при выполнении этих команд робот перемещается на одну клетку соответственно: вверх ↑, вниз ↓, влево ←, вправо →.

четыре команды проверяют истинность условия отсутствия стены у той клетки, где находится робот:

сверху свободно

снизу свободно

слева свободно

справа свободно

цикл

пока команда

выполняется, пока условие истинно, иначе происходит переход на следующую строку.

при движении в сторону стены робот разрушается, и выполнение программы прерывается.

сколько клеток лабиринта соответствует требованию, что, выполнив предложенную ниже программу, робот остановится в той же клетке, с которой он начал движение?

начало

пока вверх

пока влево

пока вниз

пока вправо

конец


варианты ответа

1) 1

2) 2

3) 3

4) 4

паскаль

откомпилирован: (pascal abc)

program z1; uses crt; var    n: integer;     i: integer; begin      write(' введите n :   ');       readln(n);             for i : = 1 to n do      begin                writeln(' число: ',i,' степень: ', i *i);       end; end.

си

откомпилирован: (dev cpp)

#include < stdio.h> #include < stdlib.h> #include < conio.h> #include < math.h> int main(){  int n = 0;     printf("\n vvedite n:   ");   scanf("%d", & n);   printf("\n chislo | stepen");   for(int i = 1; i < n; i++)  {                printf("\n %5d  |%5d ", i, i * i);   }  getch( );   return 0; }

type adrcel=^element; element=record info: integer; next: adrcel; end; var start,last,new_el: adrcel; i: integer;

procedure del2(var start: adrcel);

var

p: adrcel;

begin

p: =start^.next;

if p< > nil then start^.next: =p^.next

end;

begin start: =nil; last: =nil; new_el: =nil; repeat new(new_el); write('info='); readln(new_el^.info);

new_el^.next: =nil; if start=nil thenstart: =new_el; else begin

last: =start;

while last^.next< > nil do last: =last^.next; last^.next: =new_el; end; write('продолжить? (1-да/0-нет): '); readln(i); until i=0; writeln('удалим 2-й элемент');

del2(start);

new_el: =start; while new_el< > nil do begin write(new_el^.info: 4); new_el: =new_el^.next; end; readln; end.

1)

vara, b: integer;

beginreadln(a, b); if (a div 10 + a mod 10) > (b div 10 + b mod 10) thenwriteln('сумма цифр ', a, ' больше')elsewriteln('сумма цифр ', b, ' больше'); end.

2)

vara: integer;

beginreadln(a); writeln((a mod 10) * 10 + a div 10); end.

3)

vara: integer;

beginreadln(a); if ((a div 100) = (a mod 100) div 10) or ((a div 100) = (a mod 10)) or ((a mod 100) div 10 = (a mod 10)) thenwriteln('есть 2 одинаковые цифры')elsewriteln('нет 2-х одинаковых цифр'); end.

плата вроде как, если не ошибаюсь