Program ar; var arr:array[1..7] of integer; i,h:integer; begin h:=0; for i:=1 to 7 do begin readln(arr[i]); if arr[i] > h then h:=arr[i]; end; write(h); end.
Узнаем количество символов данной статьи. Для этого умножим 40*32*16.
Пока мы просто составили выражение, перемножать не будем.
Каждый символ кодируется 8 битами, следовательно информационный объём статьи будет равен 8*40*32*16.
Перемножать пока, опять же, не будем. Чтобы ответ не был таким большим и пугающим, переведём всё а килобайты. Для этого полученное ранее выражение разделим на 8 (чтобы перевести в байты), затем на 1024 (чтобы перевести в килобайты).
Получаем выражение: (8*40*32*16)/(8*1024)
Восьмёрки в числителе и знаменателе сокращаем. Получается: (40*32*16)/1024
Сократим числитель и знаменатель на 32. Получаем: (40*16)/32
var arr:array[1..7] of integer;
i,h:integer;
begin
h:=0;
for i:=1 to 7 do
begin
readln(arr[i]);
if arr[i] > h then h:=arr[i];
end;
write(h);
end.