program raf105;
var a,sum,i:integer;
begin
writeln('Вводите 10 чисел по очереди');
for i:=1 to 10 do
begin
readln(a);
sum += a;
end;
writeln('Сумма: ',sum);
end.
<em><u>Язык PascalABC</u></em>
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>
1 символ=1байт
считаем, сколько весит 1 книга:
40*50*200=400000байт
Находим кол-во книг
80000000000/400000=200.000 книг
(вроде так)
<span>1.графический - с помощью спец. рисунков или значков;2.числовой - с помощью чисел;3.символьный - с помощью символов того же алфавита, что и исходный текст.</span>