Var r,v:integer;
begin
read(r,v);
if (v < r-105) then write(' < ') else
if (v > r - 95) then write(' > ') else
write(' HOPM ');
end.
1) 1 кб = 1024 байта = 8 * 1024 бит; 35 кб = 35 * 8 * 1024 = 286720 бит.
2) 1 секунда файла займет: 4* 20000 * 16 = 1280000 бит = 156,25 кб. 79 секунд файла = 79 * 156,25 = 12343,75 кб = 12,054 Мб. (Если у вас там не секунды, а минуты, то умножьте еще на 60.)
3) 16 цветов = 2^4 цветов. Для записи каждого пикселя требуется 4 бита.
Общее число пикселей: 1200 / 4 = 300 пикселей. Высота рисунка = 300 / 10 = 30 пикселей.
1)
var n,a,s,i:integer;
begin
write('n = ');
readln(n);
writeln('Введите ',n,' чисел:');
s:=0;
for i:=1 to n do
begin
read(a);
s:=s+a;
end;
writeln('s = ',s);
end.
2)var n,a,s,i:integer;
begin
write('n = ');
readln(n);
writeln('Введите ',n,' чисел:');
s:=0;
i:=0;
repeat
i:=i+1;
read(a);
s:=s+a;
until i=n;
writeln('s = ',s);
end.
3)
var n,a,s,i:integer;
begin
write('n = ');
readln(n);
writeln('Введите ',n,' чисел:');
s:=0;
i:=0;
while i<n do
begin
i:=i+1;
read(a);
s:=s+a;
end;
writeln('s = ',s);
end.
Пример:
n = 5
Введите 5 чисел:
8 2 9 6 4
s = 29
Sub Zadanie16084380()
' Дана матрица Y(5,5) (элементы матрицы выбрать самостоятельно). Вы-
' числить элементы новой матрицы Z(5,5) по правилу: zij = yij / ki, где ki – количе-
' ство положительных элементов i-той строки.
' Если в i-той строке положительных элементов нет, то i-тая строка в матрице
' Z должна быть заполнена нулями
Const N = 4
Dim Y,Z,K
ReDim Y(N, N), Z(N, N), K(N)
S=""
Randomize
For i = 0 To N
K(i) = 0
For j = 0 To N
Y(i, j) = Int(100 * Rnd) - 50
S = S & Y(i, j) & " "
If Y(i, j) > 0 Then
K(i) = K(i) + 1
End If
Next
S = S & vbNewLine
Next
S = S & vbNewLine
For i = 0 To N
For j = 0 To N
if K(i) = 0 then
Z(i, j) = 0
else
Z(i, j) = Y(i, j) / K(i)
end if
S = S & Z(i, j) & " "
Next
S = S & vbNewLine
Next
MsgBox (s)
End Sub
Call Zadanie16084380()
код написан на VBScript
Вес одной страницы = 2^4 * 2^6 * 2^6 = 2^16 бит
Вес книги = 2^8 * 2^16 = 2^24 бит = 2 Мбайта