1.
Program Program1;
Var
a:array [1..20] of integer;
i,k:integer;
begin
randomize;
for i:=1 to 20 do
a[i]:=random(101);
k:=0;
for i:=1 to 20 do
begin
write(a[i],', ');
k:=k+a[i];
end;
Writeln('Сумма элементов массива: ',k);
end.
2.
Program Program2;
Var
a:array [1..20] of integer;
i,k:integer;
begin
randomize;
for i:=1 to 20 do
a[i]:=random(101);
k:=0;
for i:=1 to 20 do
begin
write(a[i],', ');
inc(k);
end;
Writeln('Количество элементов массива: ',k);
end.
1. Находим, сколько пикселей будет всего.
256×256 = 65536
2. 16 = 2⁴, поэтому цвет каждого пикселя кодируется 4 битами. 4 бита = 4/8 = 1/2 байта.
3. 1 фото займет 65536×(1/2) = 32768 байт или 32768 / 1024 = 32 Кбайт
4. 2 фото займут 2×32 = 64 Кбайт
Ответ: 64
Var b,s:real;
begin
S := 3;
b := 0;
repeat
b := 2 + s + b;
s := s + 4;
until s=99;
writeln(b);
end.
Var n,i,s:integer;
begin
write('n = '); readln(n);
s:=0;
for i:=1 to n do
if i mod 2 =0 then s:=s-i else s:=s+i;
writeln('s = ',s);
end.
Пример:
n = 10
s = -5
Var
i : integer;
count : real;
begin
count := 370000;
for i := 2014 to 2030 do
begin
writeln('Год ', i, ': ', Round(count));
count := count + count * 3 / 100;
end;
<span>end. </span>