Ответ:
1), 7), 3), 5), 2), 4), 6)
Объяснение:
https://smile.ru/https.txt
1. 32 * 40 * 48 = 61440 символа
8 бит = 1 байт
ответ: 61440 байт
2. 16 * 30 *32 = 15360 символов
16 бит = 2 байта
ответ 15360 * 2 = 30720 байт
3. 14 * 36 * 64 = 32256 символа
ответ 32256 * 2 = 64512 байта
Var
A,i:integer;
S:integer;
Sr:real;
b:integer;
begin
writeln('Введите а:');
readln(A);
b:=200;
for i:=A to 200 do
begin
S:=B+i;
End;
Sr:=S/A;
writeln('Среднее значение:',sr);
<span>end.</span>
Т. к. 1 ребенок любит и капусту и морковь и горох, то:
4 - 1 = 3 ребенка любят капусту и морковь
3 - 1 = 2 детей любят капусту и горох,
2 - 1 = 1 ребенок любит морковь и горох
7 - (1 + 2 + 3) = 1 ребенок любит только капусту
6 - (1 + 3 + 1) = 1 ребенок любит только морковь
5 - (1 + 2 + 1) = 1 ребенок любит только горох
Т. к. мы узнали предпочтения всех детей то сложив количество этих детей получим сколько человек в семье:
1 + 3 + 2 + 1 + 1 + 1 + 1 = 10 детей.
Ответ. В семье 10 детей.
Var
i, sum: longint;
begin
for i := 1 to 100 do sum := sum + sqr(i);
write(sum);
end.