var
a,b,c,d:real;
z,x:integer;
begin
z:=0;
x:=0;
readln(a);
readln(b);
readln(c):
readln(d);
if (b mod a)=0 then writeln('a делитель числа b');
if (с mod a)=0 then writeln('a делитель числа с');
if (в mod a)=0 then writeln('a делитель числа в');
if a>b then z:=z+1;
if b>c then z:=z+1;
if c>d then z:=z+1;
if z=3 then writeln('числа расположены по убыванию');
z:=0;
if a mod 5=0 then x:=x+1;
if a mod 7=0 then x:=x+1;
if x=2 then z:=z+1;
x:=0;
if b mod 5=0 then x:=x+1;
if b mod 7=0 then x:=x+1;
if x=2 then z:=z+1;
x:=0;
if c mod 5=0 then x:=x+1;
if c mod 7=0 then x:=x+1;
if x=2 then z:=z+1;
x:=0;
if d mod 5=0 then x:=x+1;
if d mod 7=0 then x:=x+1;
if x=2 then z:=z+1;
x:=0;
writeln(z,'чисел делятся на 5 и 7 ');
z:=0;
if a<=7 then z:=z+1;
if b<=7 then z:=z+1;
if c<=7 then z:=z+1;
if d<=7 then z:=z+1;
if z>0 then writeln('есть числа больше или равные 7')
end.
предпоследнее не могу прочесть задание, так что сорри.
Выше ответ более простой, но может Вам нужно что-то сложное?
Например:
1) 10101(2)<span> = 1∙2^</span>4+0∙2^3+1∙2^2+0∙2^1+1∙2^0<span> = 16+0+4+0+1 = 21(</span>10)
2) 11101(2)<span> = 1∙2^</span>4+1∙2^3+1∙2^2+0∙2^1+1∙2^0<span> = 16+8+4+0+1 = 29(</span><span>10)
3) </span>01010(2)<span> = 0∙2^</span>4+1∙2^3+0∙2^2+1∙2^1+0∙2^0<span> = 0+8+0+2+0 = 10(</span>10)
4) 11111(2)<span> = 1∙2^</span>4+1∙2^3+1∙2^2+1∙2^1+1∙2^0<span> = 16+8+4+2+1 = 31(</span><span>10)
5) 01110(2) = </span>0∙2^4+1∙2^3+1∙2^2+1∙2^1+0∙2^0<span> = 0+8+4+2+0 = 14(</span>10)
<span>10101(2) - 10101 в двоичной системе счисления
21(10) - 21 в десятичной системе счисления
1*2^4 - 1 умножить на 2 в четвёртой степени
* - знак умножить</span>
Program f1;
var x,y: real;
begin
readln(x);
if x<=0 then y:=0 else второе условие;
writeln( y:3:0);
end.
Элементарно, умножь Гб на 1024, получится 2560 Мб. А в одном байте 8 бит, значит делим, 63035,875 байт
1) 1+3=4 (2)
2) 4*2=8 (1)
3) 8*2=16 (1)
4) 16+3=19 (2)
5) 19*2=38 (1)
В ответе пишешь : 21121
