Решение:
Для начала нужно <u>перевести всё в десятичную</u> систему.
1). 10(16) в десятичную систему:
<u>10(16)</u> = 1*16^1+0*1 = <u>16(10)</u>
2). 10(8) в десятичную:
<u>10(8)</u> = 1*8^1+0*1 = <u>8(10)</u>
3). 10(2) в десятичную:
<u>10</u><u>(</u><u>2</u><u>)</u> = 1*2^1+0*1 = <u>2(10)</u>
4). Складываем полученные результаты.
16(10)+8(10)*2(10) = 16+16 = <u>32(10)</u>
5). Переводим целую часть 32(10) в 2-ую систему:
32/2 = 16, остаток: 0
16/2 = 8, остаток: 0
8/2 = 4, остаток: 0
4/2 = 2, остаток: 0
2/2 = 1, остаток: 0
1/2 = 0, остаток: 1
<u>32(10)</u> = <u>100000(2)</u>
Кинуть монеты вверх, фальшивая ( самая лёгкая) взлетит выше.
1. Уже в первой строке ошибка - отсутствует символ ";" в конце строки.
2. В строке № 8 ошибка, не объявленная переменная "a"
3. Это только ошибки в синтаксисе, после их исправления программа запускается, но работать так как нужно не будет. Ищем ошибки в алгоритме:
исправим стороку "for i := 1 to a do" на "for i := 1 to n do" и получим вывод всех делителей, но в условии задачи требуется вывести и их количество. Вот исправленный код программы:
var
n, i, a: integer;
begin
write('введите число');
read(n);
writeln('делители');
for i := 1 to n do
if n mod i = 0 then begin
writeln(i); a:=a+1;
end;
writeln('Делителей ',a);
end.
1) комплексным чертежом
2) в проекционной связи посредством прямоугольного проецирования;
3) профильной плоскостью проекций и обозначается W;
4) профильной проекцией или видом сбоку (слева);
5) с профильной плоскостью и образуют оси оz (при пересечении фронтальной и профильной) и оy (при пересечении горизонтальной и профильной);
6) с осями - осный чертеж, без осей - безосный
7) по х-длину, z-высоту, у-ширину
