const n=10;
var a:array [1..n] of integer;
i,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random (10);
if a[i] mod 2 = 0 then k:=k+1;
write (a[i],' ')
end;
writeln;
writeln (k)
end.
1. Объем файла = 16*2048 бит = 16*2048/8 байт = 2*2048 байт = 2*2048/1024 Кбайт = 4 Кбайта.
2. 60 Кбайт = 60*1024 байт = 60*1024*8 бит
Время = 60*1024*8/3072 = 160 сек
3. S1 = t*v1, S2 = t*v2
S1/S2 = v1/v2, S2 = S1/(v1/v2)
v1/v2 = 1536/768 = 2
S2 = 80/2 = 40 Кбайт
4. S1 = t1*v, S2 = t2*v
S1/S2 = t1/t2, S2 = S1/(t1/t2)
t1/t2 = 60/75 = 4/5 = 0,8
S2 = 2000/0,8 = 2500 Кбайт
5. S1 = t1*v, S2 = t2*v
S1/S2 = t1/t2, t2 = t1/(S1/S2)
S1/S2 = 3/4 = 0,75
t2 = 2*60/0,75 = 160 сек
1) нарисовать 1 большой круг
2) отступив 5 миллиметров и сделать второй круг
3) примерно по середине разделить воображаемой линией
4) отступив от линии одинаковое пространство, нарисовать маленькие кружки
5) раскрасить
Поиск: Путем нажатия комбинации клавиш ctrl + f <em>(встань в любую строку и нажми)
</em>Замена: Правка - заменить (на панели в txt редакторе, вверху где сохранить, файл, открыть и т.п.)
Var ,integer,real, begin , if then else , while do begin , команды присваивания