Ну примерно так:…43;4;29;104
<span>
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
<span>Program konfeti;
Uses
CRT;
Var
x,m:real; {x-цена за килограмм, m-текущая масса}
Begin
CLRSCR;
m:=1.2;
Write('Введите цену за килограмм конфет:');
Readln(x);
While (m<2.1) do
Begin
Writeln('Цена за ',m:0:2,' кг конфет равна ',m*x:0:2,' рублей');
m:=m+0.2
End;
Readln;
End.</span></span>
while условие выполнения цикла do
begin
{Операторы}
end;
Var
<span> K, s: </span>byte;
<span> A: array [0..4] of </span>byte;
begin
A[0] := 1; a[1] := 4; a[2] := 5; a[3] := 7; a[4] := 8;
for K := 0 to 4 do
s += a[k];
writeln(s);
<span>end.</span>
1)224•64=14336-строк во всей книге
2)14336•72=1032192-смволов во всей книге
3)1032192•16=16515072- информационый объём