Программы для PascalABC.Net
Для древних турбопаскалей требуется добавить две строки: первым оператором поставить
Uses Crt;
а предпоследним
Readkey;
var
i, n, s: integer;
begin
Write('Введите количество элементов n: '); Read(n);
s := 0;
for i := 1 to n do s := s + i;
Writeln('Сумма 1+2+...+', n, ' = ', s)
end.
<em><u>Тестовое решение:</u></em>
Введите количество элементов n: 10
Сумма 1+2+...+10 = 55
var
i, n: integer;
s:real;
begin
Write('Введите количество элементов n: '); Read(n);
s := 0;
for i := 1 to n do s := s + 1/i;
Writeln('Сумма 1+1/2+...+1/', n, ' = ', s)
end.
<em><u>Тестовое решение:</u></em>
Введите количество элементов n: 8
Сумма 1+1/2+...+1/8 = 2.71785714285714
Const n=20;
Var i, k:integer ;s:real ;
A:array [1..200]of Integer ;
Begin
S:=0;
For i:=1 to N do begin
Write(' ') ;
a[i]:=random(41)+150;
S:=s+a[i];
Writeln(' ', a[i]) ;
End;
S:=s/n;
For i:=1 to N do begin
If(a[i] >s) then k:=k+1;
End;
Writeln ( ' ', k) ;
End.
32 = 2^5, значит 1 цвет = 5 бит
5*3 = 15 бит
1.
1500 Кбайт = 1500*1024 байт
Память для 1 пикселя:
1500*1024/(840*640) ≈ 2,8 байт ≈ 2 байта (округляем в меньшую сторону) = 16 бит
Количество цветов в палитре = 2^16 = 65536
2.
При использовании 32-цветной палитры для хранения 1 точки необходимо log(2)32 = 5 бит
Для всего изображения:
64*256*5 бит = 64*256*5/8 байт = 10240 байт = 10240/1024 Кбайт = 10 Кбайт