Св pascal: дано: m килограмм яблок и n килограмм апельсинов, посчитать стоимость покупки если килограмм апельсинов стоит k рублей, а кг яблок r рублей. уже 4 час сижу с другом и мозг пинаю, все ошибки различные

var m, n, k, r, sum : integer;

begin

 write('Введите цену яблок: '); read(r);

 write('Введите цену апельсинов: '); read(k);

 write('Введите кг яблок: '); read(m);

 write('Введите кг апельсинов: '); read(n);

 sum := r*m + k*n;

 write('Общая стоимость покупки: ',sum);

end.

А) Делим на 2 с остатком, пока не получится 0:
600 : 2 = 300 (ост. 0)
300 : 2 = 150 (ост. 0)
150 : 2 = 75 (ост. 0)
75 : 2 = 37 (ост. 1)
37 : 2 = 18 (ост. 1)
18 : 2 = 9 (ост. 0)
9 : 2 = 4 (ост. 1)
4 : 2 = 2 (ост. 0)
2 : 2 = 1 (ост. 0)
1 : 2 = 0 (ост. 1)

Выписываем остатки в обратном порядке:
1001011000

Это и есть ответ. Можно проверить сложением:
1001011000_2 = 2^9 + 2^6 + 2^4 + 2^3 = 512 + 64 + 16 + 8 = 600

б) Делаем тоже самое:
2010 : 2 = 1005 (0)
1005 : 2 = 502 (1)
502 : 2 = 251 (0)
251 : 2 = 125 (1)
125 : 2 = 62 (1)
62 : 2 = 31 (0)
31 : 2 = 15 (1)
15 : 2 = 7 (1)
7 : 2 = 3 (1)
3 : 2 = 1 (1)
1 : 2 = 0 (1)
ответ: 11111011010

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

а. 89 ÷ 2 = 44, остаток 1;

44 ÷ 2 = 22, остаток 0;

22 ÷ 2 = 11, остаток 0;

11 ÷ 2 = 5, остаток 1;

5 ÷ 2 = 2, остаток 1;

2 ÷ 2 = 1, остаток 0;

1 ÷ 2 = 0, остаток 1

Запишем остатки от деления в обратном порядке: 1011001.

89₁₀ = 1011001₂

По такой же аналогии переведём остальные числа:

б. 600 ÷ 2 = 300, остаток 0;

300 ÷ 2 = 150, остаток 0;

150 ÷ 2 = 75, остаток 0;

75 ÷ 2 = 37, остаток 1;

37 ÷ 2 = 18, остаток 1;

18 ÷ 2 = 9, остаток 0;

9 ÷ 2 = 4, остаток 1;

4 ÷ 2 = 2, остаток 0;

2 ÷ 2 = 1, остаток 0;

1 ÷ 2 = 0, остаток 1;

600₁₀ = 1001011000₂

в. 2010 ÷ 2 = 1005, остаток 0;

1005 ÷ 2 = 502, остаток 1;

502 ÷ 2 = 251, остаток 0;

251 ÷ 2 = 125, остаток 1;

125 ÷ 2 = 62, остаток 1;

62 ÷ 2 = 31, остаток 0;

31 ÷ 2 = 15, остаток 1;

15 ÷ 2 = 7, остаток 1;

7 ÷ 2 = 3, остаток 1;

3 ÷ 2 = 1, остаток 1;

1 ÷ 2 = 1, остаток 1;

2010₁₀ = 11111011010₂