Var c,i:integer;

function IntToBin2(Value: integer): string;
var i: integer;
begin
Result:= '';
for i:= 0 to Trunc(Ln(Value)/Ln(2)) do
Result:= IntToStr((Value and (1 shl i) shr i))+Result;
end;

begin;
for c:=41 to 69 do
writeln(c,'=',IntToBin2(c));
end.

Вывод:
41=101001
42=101010
43=101011
44=101100
45=101101
46=101110
47=101111
48=110000
49=110001
50=110010
51=110011
52=110100
53=110101
54=110110
55=110111
56=111000
57=111001
58=111010
59=111011
60=111100
61=111101
62=111110
63=111111
64=1000000
65=1000001
66=1000010
67=1000011
68=1000100
69=1000101

0 0

4 года назад

Помогите пожалуйста . 1. Лариса узнала , что адрес в сети состоит из четырёх неотрицательных чисел , каждое из которых меньше 25

ЛедиЛика [34]

Все правильные какие тут еще объяснения нужны?

0 0

4 года назад

1. Определите, каким числом является введённое число – чётным или нечётным.2. Напишите программу, которая в зависимости от введё

капорт

1.
var n:integer;
begin
readln(n);
if n mod 2 = 0 then
writeln('Четное')
else
writeln('Ну четное');
end.
2.
var n:integer;
begin
readln(n);
if n<>0 then
writeln('y=',1/n)
else
writeln('функция не определена');
end.
3.
var numb,ts,sot,des,ed:integer;
begin
readln(numb);
ts:=numb div 1000;
sot:= numb div 100;
sot:= sot mod 10;
des:=numb mod 100;
des:=des div 10;
ed:=numb mod 10;
if (ed*1000+des*100+sot*10+ts) = numb then
writeln('палиндром');
end.
4.
var x:real;
begin
readln(x);
if x>=2 then
writeln(x)
else
writeln(sqr(x)-3);
end.

0 0

4 года назад