Question

написать программу,которая выводит двоичное представление введенного с клавиатуры десятичного числа в диапазоне от 0 до 255.В паскале

Answer 1

//программа выводит двоичное представление введенного с клавиатуры десятичного числа в диапазоне от 0 до 255
const t:Array[1..8] of integer =(1,2,4,8,16,32,64,128);var d:string;sum, r,i:integer;s:Array[1..8] of char;beginwrite('Введите 8 цифр 2-го числа');readln(d);if d.Length = 8 thenbeginfor i:=1 to 8 dobeginr := StrToInt(d[i]);sum := sum + t[9-i]* r;end;write(sum);endelsewrite('Вы не верно ввели число, только ', d.Length,' цифр');end.