В какой программе можно рисовать фигурами (wordpad)
есть 2003 ,2004и 2007(wordpard)
можно подключить пакет из другой программы(wordpard)
Var A,S1,S2,i:integer;
Begin
S1:=0;
S2:=0;
Write('Введите результаты первого пятиборца: ');
For i:= 1 to 5 do
Begin
Read(A);
S1:=S1+A;
End;
Write('Введите результаты второго пятиборца: ');
For i:= 1 to 5 do
Begin
Read(A);
S2:=S2+A;
End;
WriteLn('S1 = ',S1);
WriteLn('S2 = ',S2);
End.
Пример:
Введите результаты первого пятиборца: 1 2 3 4 5
Введите результаты второго пятиборца: 5 6 7 8 9
S1 = 15
S2 = 35
Var w,a,b,c,x:real;
begin
x:=2.8;
b:=-0.3;
c:=4;
writeline ("Input X");
readline (x);
if (x<1.2) then w:=a*x*x+b*x+c;
if (x<1.2) then w:=a*(Pow (x),2) + b*x+c; // Аналогичен предыдущей строке, только там умножали х на х, а тут возводим через функцию pow.
if (x=1.2) then w:= a/x + (Pow (x),2)+1;
if (x>1.2) then w:=(a+b*x)/((Pow (x),2)+ 1);
writeline ("Your answer ", w);
end.
Воспользуемся формулой I = k * i, где I - информационный объем сообщения; k - количество символов в сообщении; i - информационный вес одного символа.
I = k * i
I = 100 * 6
I = 600 бит - объем
<em>Отсюда вытекает вопрос: откуда появилась 6?
</em>представим 64 формулой n=2 в степени i ( i - количество бит) <em>Т.к. нам необходимо найти i для нахождения объема текста, 64 = 2 в 6 степени. </em>
Для быстрого использования вне компьютера.