Var a,b,s:integer;
begin
read(a,b);
for a:=a to b do
s+=a;
writeln(s);
<span>end.</span>
<em>1)</em>
#include <stdio.h>
#include <stdlib.h>
int sover (int n)
{<span>
int sum = 0;</span><span>
for (int i = 1; i<=n/2; i++)</span><span>
if (n%i==0)</span><span> sum+=i;</span><span>
if (sum==n)</span><span>
return 1;</span><span>
else return 0;
</span>}
int main()
{<span>
int n;</span><span>
printf ("N = ");</span><span>
scanf ("%d",&n);</span><span>
if (sover(n)==1)</span><span>
printf ("Sovershennoe");</span><span>
else printf ("Ne sovershennoe");</span><span>
printf("\n");</span><span>
system ("PAUSE");</span><span>
return 0;
</span><span>}
<em>2)</em>
#include <stdio.h>
#include <stdlib.h>
int main()
{
for (int i = 1; i<=5; i++)
{
for (int j = 1; j<=5-i+1; j++)
printf ("%d ",5+i-1);
printf ("\n");
}
system ("PAUSE");
return 0;
}</span>
<span>Один символ при алфавитном подходе будет нести 5 бит информации (2 в Х степени = 32) . Общий объём информации 39x5 = 195 бит</span>
14(10)=1110(2)
14|0
7 |1
3 |1
1 |1
0 |
14(10)=16(8)
14|6
1 |1
0 |
14(10)=E(16)
14| 14(Е)
0 |
В общем. Начерти окружность, квадрат, прямоугольник, параллелограмм и ромб.
После чего пиши: Ни одна из предложенных фигур графически не похожа на другую - истинное. Все рисунки являются геометрическими фигурами - истинное.
Все фигуры имеют углы - ложное. Некоторые фигуры имеют объём - ложное.