Если нужно число 1410 перевести в 8-ми ричную систему числения, то:
1410 делим на 8, равно 176, остаток 2.
176 делим на 8, равно 22, остаток 0
22 делим на 8, равно 2, остаток 6
Теперь читаем с конца последний результат деления и остатки.
=2602
Var
i:integer;
begin
readln(i);
if i<=7 then
case i of
1:writeln('Это понедельник');
2:writeln('Это вторник');
3:writeln('Это среда');
4:writeln('Это четверг');
5:writeln('Это пятница');
6:writeln('Это суббота');
7:writeln('Это воскресенье');
end
else
writeln('Число слишком большое');
<span>end.</span>
Var a: integer;
begin
write('Введите трехзначное число: ');
readln(a);
writeln('Результат: ',(a mod 100)*10+(a div 100));
end.
var a,b,c:integer;
begin
writeln('Введите a,b,c');
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
if a+b>b+c then
begin
if a+b>a+c then
write('a+b=',a+b)
else
write('c+a=',c+a);
end
else if b+c>=a+b then
begin
if b+c>c+a then
write('b+c=',b+c)
else
write('c+a=',c+a);
end
else
write('c+b=',c+b);
end.
Составим таблицу, в которой посчитаем число путей, ведущих в данную ячейку и не содержащих ни одной жилы.
Число путей равно сумме числа путей, ведущих в соседнюю ячейку сверху, и числа путей, ведущих в соседнюю ячейку слева, так как только из них можно попасть в текущую ячейку. В ячейки с золотом поставим нули.
Проделав вычисления, получаем ответ 106.
