Program helpglupshkolnikam;
uses crt;
var a, b: real; i: integer;
begin
randomize;
readln(a,b);
for i:= 1 to 5 do
write(' ',(Random()*(b-a)+a):0:3, ' ');
<span>end.</span>
Зрение
вкус
обоняние
осязание
Program gt;
var a:array[1..12]of integer;
n,i,max:integer;
begin
randomize;
for i:=1 to 12 do
begin
a[i]:=random(100)-50;
write(a[i],' ');
end;
writeln;
write(a[2],' ',a[3],' ',a[4],' ',a[9],' ',a[12],' ');
max:=a[1];
for i:=2 to 12 do
begin
if(a[i]>max)then max:=a[i];
end;
writeln(max);
end.
Формула:
N=2^I
Мощность-кол-во информации,необходимое для кодирования 1 символа.
11 Кбайт=92274688 бит
92274688 бит:11264 символа=8192 бита необходимо,чтобы закодировать 1 символ. Ответ:N=1Кб
Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace ConsoleApplication4
{
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Введи длину массива");
int n = int.Parse(Console.ReadLine());
int[] mass = new int[n];
for (int i = 0; i < n; i++)
{
Console.WriteLine("Введи " + i + " элемент");
mass[i] = int.Parse(Console.ReadLine());
}
for (int i = 0; i < n; i++)
{
if (i == mass[i])
Console.WriteLine("Элемент " + i + " совпадает со своим индексом");
}
Console.ReadKey();
}
}
}