Будет равно 17 мб. епыкпыамп
Const
<span>c=10; </span>
<span>var a:array[1..c] of integer; </span>
<span>n,i,s:integer; </span>
<span>begin </span>
<span>writeln('Введите элементы массива'); </span>
<span>for i:=1 to c do </span>
<span>read(a[i]); </span>
<span>writeln('Введите количество первых N чисел'); </span>
<span>read(n); </span>
<span>for i:=1 to n do </span>
<span>s:=s+a[i]; </span>
<span>writeln('Сумма первых ', n, ' чисел массива = ', s); </span>
<span>end.</span>
37(8)+1=40(8). Ответ 40(8)
1. Программа "Анкета":
program anketa;
var a,b,d:string;
c:char;
begin
writeln('Введите ваши имя и фамилию в именительном падеже: ');
readln(a,b);
writeln('Введите букву класса: ');
readln(c);
writeln('Введите ваше хобби: ');
readln(d);
writeln('Меня зовут ',a,' ',b,';');
writeln('Я учусь в 7 "',c,'" классе гимназии 524;');
writeln('Моё хобби - ',d,';');
writeln('Периметр прямоугольника равен 30');
writeln('<span>Сегодня ярко светит солнце!</span>')
end.
2. Программа "Опросы":
program oprosy;
var a,b,c:integer;
d:real;
begin
writeln('Введите ваши оценки по пятибалльной шкале: ');
readln(a,b,c);
d:=(a+b+c)/3;
writeln('Ваша средняя оценка за тесты - ',d,'.');
end.
3. Программа "Периметр прямоугольника":
program perimetr;
var a,b,c:integer;
begin
writeln('Введите стороны прямоугольника: ');
readln(a,b);
c:=(a+b)*2;
writeln('Периметр прямоугольника = ',c,'.');
end.
100*40=4000
Т.к. 1 символ весит 1 байт, информационный объем книги равен 4000
4000\1024=3,90кб