Program enot;
Var a: array [1..2] of integer;
i:integer;
begin
for i:= 1 to 2 do
begin
a[i]:=random(3);
writeln(a[i]);
end;
<span>end.</span>
Насколько я понял, задача на алгоритм
1)Открой портфель
2)Собери учебники
3)Собери принадлежности
4)Положи учебники по одному в портфель
5)Положи принадлежности по одной в портфель
6)Закрой портфель.
2 .взять портфель и поставить его на удобное место. Потом посмотреть расписание уроков. сложить вначале учебники, а потом тетради. положить пенал и нужные вещи в школе например: влажные салфетки и деньги что бы купить поесть в столовой. Застегнуть портфель.
В Form1 , создаете 7 объектов, (Edit1,Edit2,Edit3,Label1,Label2,Label3,Button1),2 кликк по кнопке (button1)
в созданную процедуру вставляйте код:
procedure TForm1.Button1Click(Sender: TObject);var a,b:integer;begin a:=StrToInt(Edit1.Text); b:=StrToInt(Edit2.Text); Edit3.Text:= IntToStr((a+b)*2)end;
Дано:
I = 16 бит = 2 байта
n = 25 кГц = 25 000 Гц
t = 2.5 мин = 150 с
Найти:
V - ?
Решение:
V = I*n*t
V = 2 байта * 25 000 Гц * 150 с = 7 500 000 байт / 1024 ≈ 7 324.2 Кбайта / 1024 ≈ 7.2 Кбайта
Ответ: 7.2 Кбайта
ДОКУМЕ́НТМужской род<span>1. Деловая бумага, подтверждающая какой-н. факт или право на что-н."Расходные документы"2. То, что удостоверяет личность предъявителя (паспорт и т. п.)."Проверка документов"3. Письменное свидетельство о чём-н."Древнерусские грамоты являются историческими документами"</span><span>Перевести "документ" на</span>
