Var a, b: real;
begin
a:=4;
b:=4;
a:=2*a+3*b;
b:=a/2*b;
write(b);
end.
Ответ
40
var
a:array[1..31] of real;
i,k:integer;
min:real;
begin
min:=50;
for i:=1 to 31 do
begin
readln(a[i]);
if a[i]<min then min:=a[i];
end;
k:=0;
for i:=1 to 31 do
if a[i]=min then k:=k+1;
writeln(k);
end.
*Рисунок на фото
ДАНО:
Футбол = a+c = 14000
Хоккей = b+c = 16000
Футбол ИЛИ Хоккей = a+b+c = 20000
НАЙТИ:
Футбол И Хоккей = c = ?
РЕШЕНИЕ:
a+b+c+c = 14000+16000 = 30000 =>
a+b+c = 30000-c
и
a+b+c = 20000
=>
30000-c = 20000
c=10000
Ответ: <span>по запросу ФУТБОЛ&ХОККЕЙ будет найдено 10000 тысяч страниц
</span>
<em><u>Современное решение:</u></em>
// PascalABC.Net 3.0, сборка 1066
begin
var k:=ReadInteger('Количество элементов в массиве: ');
var a:=ArrRandom(k,-25,25);
Writeln('Сгенерированный массив: ',a);
Writeln('Сумма четных элементов равна ',a.Where(x->x mod 2=0).Sum)
end.
<em><u>Тестовый прогон:</u></em>
Количество элементов в массиве: 15
Сгенерированный массив: [6,18,19,20,12,-20,7,19,-17,10,14,-25,10,-11,-13]
Сумма четных элементов равна 70
Если для кодирования отводится 8 бит то решение такое
1 символ = 1 байт
каждая строка состоит из 64 символа, значит
64 симв.*1 байт=64 байт - в одной строке.
на каждой странице 40 строк значит:
64*40=2560 байт на одной странице.
если у нас 8 страницы, то получаем:
2560*8=20480 байт,
1 кбайт = 1024 байт, т.е 20480 байт / 1024 = 20 кбайт.
Но в ваших данных написано, что объем статьи 25 кбайт.
тогда рассмотрим обе объема и переведем их в бит
20 кбайт * 1024 байт = 20480 байт.
20480 байт * 8 бит = 163840 бит
--------------------------------------------------
25 кбайт * 1024 байт = 25600 байт
25600 байт * 8 бит = 204800 бит