40 по информатике в программе паскаль 9 класс с клавиатуры водятся 4 числа выяснить, если среди них - id966728920221003 от gerastern 03.10.2022 05:59

Question

Информатика: 40 по информатике в программе паскаль 9 класс с клавиатуры водятся 4 числа выяснить, если среди них числ0 равное 0

gerastern · Accepted Answer

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

40 по информатике в программе паскаль 9 класс с клавиатуры водятся 4 числа выяснить, если среди них числ0 равное 0

MOGZ ответил