Var a:integer; s:string;
BEGIN
write('Введите число: ');
readln(a);
s:='';
while a>0 do
begin
if a mod 2=0 then s:='0'+s else s:='1'+s;
a:=a div 2;
end;
writeln(s);
END.
Пример:
<span>Введите число: 131
10000011</span>
Program XY5;
var
x,y: real;
begin
var s:='**** -=Alphaeus=- ****';
for var k:=1 to 22 do begin write(s[k]); sleep(47) end;
writeln;writeln;
writeln('Введите координаты точки:');
write('X='); readln(x);
write('Y='); readln(y);
if ((x>=0) and (y>=0) and (x*x+y*y<=16)) or ((x>=0) and (y<=0) and (x*x+y*y<=25)) then
writeln('TRUE (то есть точка (',x,',',y,') попадает в заштрихованную область) ')
else
writeln('FALSE (то есть точка (',x,',',y,') HE попадает в заштрихованную область) ');
end.
Var
x,y,z,k:boolean;
begin
writeln('Введите значения x,y,z(true или false)');
readln(x,y,z);
k:=not(x or y) and z;
write('Значение выражения: ',k);
<span>end.</span>
160:2=80 (остаток 0)
80:2=40 (остаток 0)
40:2=20 (остаток 0)
20:2=10 (остаток 0)
10:2=5 (остаток 0)
5:2=2 (остаток 1)
2:2=0 (остаток 0)
Клавиатура, мышка, наушники, веб камера, сканер, принтер, различные устройства ввода, монитор, модем..