Необходимо провести робота по лабиринту из начального положения (◊) в точку a.2. составьте программу рисования узора. начальное положение робота отмечено символом ◊.вариант 21. необходимо провести робота по лабиринту из начального положения (◊) в точку a.2. составьте программу рисования узора. начальное положение робота отмечено символом ◊.вариант 31. необходимо провести робота по коридору из начального положения (◊) в точку a.2. составьте программу рисования узора. начальное положение робота отмечено символом ◊.вариант 41. необходимо провести робота по коридору из начального положения (◊) в точку a.2. составьте программу рисования узора. начальное положение робота отмечено символом ◊.вариант 51. составьте программу закрашивания клеток поля, отмеченных звездочкой.2. составьте программу рисования узора. начальное положение робота отмечено символом ◊.вариант 61. составьте программу закрашивания клеток поля, отмеченных звездочкой.2. составьте программу рисования узора. начальное положение робота отмечено символом ◊.вариант 71. составьте программу закрашивания клеток поля, отмеченных звездочкой.2. составьте программу рисования узора. начальное положение робота отмечено символом ◊.вариант 81. составьте программу закрашивания клеток поля, отмеченных звездочкой.2. составьте программу рисования узора. начальное положение робота отмечено символом ◊.вариант 91. составьте программу закрашивания клеток поля, отмеченных звездочкой.2. составьте программу рисования узора. начальное положение робота отмечено символом ◊.вариант 101. составьте программу закрашивания клеток поля, отмеченных звездочкой.2. составьте программу рисования узора. начальное положение робота отмечено символом ◊.
const
m:array['0'..'7'] of string=
('000','001','010','011','100','101','110','111');
m1:array['1'..'7'] of string=
('1','10','11','100','101','110','111');
var
s8,s2:string;
i:integer;
begin
Write('Введите восьмеричное число: '); Readln(s8);
s2:=m1[s8[1]];
for i:=2 to Length(s8) do s2:=s2+m[s8[i]];
Writeln('В двоичной системе: ',s2)
end.
Тестовое решение:
Введите восьмеричное число: 360721
В двоичной системе: 11110000111010001
const
digits=['0'..'9'];
var
s,sn:string;
i,err:integer;
n,sum:longint;
begin
Write('Введите числа, соединяя их знаком плюс: ');
Readln(s);
i:=2; sn:=s[1]; sum:=0;
while i<=Length(s) do begin
if s[i] in digits then sn:=sn+s[i]
else begin
Val(sn,n,err);
sum:=sum+n;
sn:=''
end;
Inc(i)
end;
Val(sn,n,err);
sum:=sum+n;
Writeln('Сумма равна ',sum)
end.
Тестовое решение:
Введите числа, соединяя их знаком плюс: 21+22+3
Сумма равна 46