Var d : Real;
Begin
Readln(d);
Writeln('Длина ограждения: ',d+3.14159265*(d/2));
Writeln('Площадь: ',3.14159265*sqr(d/2)/2);
end.
А) 1 *2^{0}+1 *2^{3} +1* 2^{2}+1* 2^{4}+1* 2^{5}+1* 2^{7} =1+4+8+16+32+128=189 степени расставлять с конца (начиная с нуля)
б) 112 (см. а)
в) деление в один большой столбик. если число четное, то в остатке 0, а если нечетное, то единица. число собирать с конца. 1100011101101
г) 10010100110 (см. в)
д) 10000101101
е) 10011010100 (см.в)
ж) 10101100000011
з) 27 (см. а)
и) 752
а)
вверху дописано
г) лучше делить столбиком, как в 1-м классе, но тут неудобно так писать, поэтому я распишу так.
1190/2=595 (ост. 0)
595/2=297 (ост.1)
297/2=148 (ост.1)
148/2=74 (ост. 0)
74/2=37 (ост.0)
37/2=18 (ост. 1)
18/2=9 (ост. 0)
9/2=4 (ост.1)
4/2=2 (ост.0)
2/2=1 (ост.0)
собираем с конца 10010100110
б)
ж)11011/2=5505 (1)
5505/2=2752(1)
2752/2=1376(0)
1376/2=688(0)
688/2=344(0)
344/2=172(0)
172/2=86(0)
86/2=43(0)
43/2=21(1)
21/2=10(1)
10/2=5(0)
5/2=2(1)
2/2=1(0)
10101100000011
з)
=27
Var n,i,j,k,s,sn:integer;
begin
writeln('n = ');
readln(n);
sn:=round(sqrt(n));
for i:=1 to sn do
for j:=1 to sn do
for k:=1 to sn do
begin
s:=i*i+j*j+k*k;
if s=n then writeln(i,'^2+',j,'^2+',k,'^2 = ',s);
end;
end.
Пример:
<span>n = 253
3^2+10^2+12^2 = 253
3^2+12^2+10^2 = 253
10^2+3^2+12^2 = 253
10^2+12^2+3^2 = 253
12^2+3^2+10^2 = 253
12^2+10^2+3^2 = 253</span>
1. Определим общее количество пикселей: 2048×1024 (умножать пока не будем)
2. При палитре в 16 = 2⁴ цветов, каждая точка описывается 4 битами, что составляет 4/8 = 1/2 байта.
3. Объем дисковой памяти составит 2048×1024×1/2 = 1024×1024 байта = 1024 Кбайта = 1 Мбайт.
Ответ:
var a:array[1..100] of integer;
i,s,n:integer;
begin
s:=0;
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if (a[i] mod 6=0) then
s := s + a[i];
writeln(s);
end.