Begin
for a:= 1 to 20 do
for b:= 1 to 20 do
for c:= 1 to 20 do
begin
if a*a+b*b=c*c then
writeln(a:4,b:4,c:4);
end;
<span>end.</span>
Var a:integer;
begin
randomize;
a:=random(30);
writeln('Количество этажей: ',a);
write('В доме');
if a<6 then write(' лифта нет.');
if (a>=6) and (a<=10) then write(' 1 лифт');
<span>if (a>=11) and (a<=18) then write(' 2 лифта');
</span><span>if (a>=19) and (a<=30) then write(' 4 лифта');</span>
end.
Не видно. Большие фото зделай.
В системе счисления с основанием 2(двоичная система счисления) число может содержать только цифры 0 или 1.
Максимальное трехразрядное число в данной системе будет: 111
Переведем его в десятичную систему счисления:
В одном байте 8 бит => в двух байтах - 8*2=16 бит
Умножаем: 7*16=112
Переводим в двоичную систему счисления:
112/2=56(0) - 56 - целая часть, 0 - остаток
56/2=28(0)
28/2=14(0)
14/2=7(0)
7/2=3(1)
3/2=1(1)
1110000 - число 112 в двоичной системе
Ответ: 1110000