Есть ответ 👍

Pascal написать программу, переводящую десятичное число в двоичную систему

243
305
Посмотреть ответы 2

Ответы на вопрос:


Var     a: longint;     b: string; begin write('a = '); readln(a); a: =abs(a); while a > 0 do     begin     if a mod 2 = 0 then b: ='0'+b     else b: ='1'+b;     a: =a div 2     end; writeln(b) end.

Берутся значения из таблицы в тетрадах, они последовательно записываются и получается число в 2-чной системе.

Популярно: Информатика