Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

//программа выводит двоичное представление введенного с клавиатуры десятичного числа в диапазоне от 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.