Все категории

3 года назад

Какие формулы вводить в таблицу для получения результата как на 3-ем скрине?

Знания

Информатика

1 ответ:

Авдеева Анна Конс... [353]3 года назад

0 0

Ответ:

смотри приложенные внизу таблицу и её скрин

Объяснение:

взял из интернета реальные данные по странам (общая площадь и население), проценты как и сказано в задании посчитал от общего населения планеты

Опишу формулы:

Плотность населения (верхняя ячейка):

=ОКРУГЛ(E3*1000000/D3;2)

-то есть, взял из ячейки E3 население страны, умножил на миллион, чтобы перейти от миллионов человек к единицам человек, поделил на площадь страны (из ячейки D3), затем округлил до двух знаков после запятой с помощью функции ОКРУГЛ (это можно и не делать, можно просто выставить в ячейках ответа отображение двух знаков после запятой)

Процентов от населения планеты (верхняя ячейка):

=ОКРУГЛ(E3/7735,3*100;2)

-то есть, взял из ячейки E3 население страны (в миллионах человек), разделил на население планеты (тоже в миллионах человек), и умножил на сто, чтобы выразить ответ в процентах (т.е. сотых долях), затем округлил до двух знаков после запятой с помощью функции ОКРУГЛ (это можно и не делать, можно просто выставить в ячейках ответа отображение двух знаков после запятой)

Формулы, идущие ниже, получаются просто копированием ячейки с верхней формулой (при этом автоматически передвигаются ссылки на ячейки с площадью и населением из текущей строки).

Читайте также

Дан двухмерный массив целых чисел(4*5).Заполнить его случайными целыми числами и вывести на экран в виде таблицы. Поменять места

Ксения938383828 [7]

Ухххххх всё возможно не рационально решал но должно всё правельно быть(проверял)

uses crt;
var A:array[1..4,1..5] of integer;
i,j,n,p:integer;
begin
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
A[i,j]:=random(9);
write(A[i,j],' ');
end;
writeln;
end;
writeln;
for i:=1 to 4 do
begin
n:=A[i,1];
A[i,1]:=A[i,5];
A[i,5]:=n;
end;
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
write(A[i,j],' ');
end;
writeln;
end;
for i:=1 to 5 do
begin
p:=p+A[1,i];
p:=p+A[4,i];
end;
for i:=2 to 3 do
begin
p:=p+A[i,1];
p:=p+A[i,5];
end;
writeln(p);
<span>end.</span>

0 0

4 года назад

Помогите с рефератом, пж. Дать небольшое, вернее, краткое определение: Что такое сетевой этикет? Что такое бан? Что такое админи

phanmachine [221]

1. правила проведения, общение в сети,традиции и культура интернет -сообщества
2. запрещать, ( объявлять вне закона)
3. должностное лицо,ответственный распорядитель.
4. работает с текстом, а именно составляет, проверяет и исправляет содержания текста.

0 0

4 года назад

Составьте список переменных, необходимых для программы, вычисляющей а) площадь квадрата б) стоимости нескольких карандашей и тет

сергей подольский

А) a, b, S
б) karts, karkol, tetts, tetkol

0 0

3 года назад

Определить последнюю цифру заданного целого числа в pascal

MrAksel [222]

Var s,t:integer;
begin
write ('s='); readln(s);
if (s>-10) and (s<10)
then writeln ('Число однозначное')
else begin
t:=s mod 10;
writeln (abs(t));
end;
end.

0 0

4 года назад

Срочно!34 балла даю Найти переменную

Вероника Романова

var m,k:integer;

n:real;

begin

writeln('Введите n и m через пробел:');

read(n,m);

k:=0;

writeln('Шаг ',k,', n=',n,', m=',m);

while m >= 6 do begin

m:=m-2;

n:=n*2;

k:=k+1;

writeln('Шаг ',k,', n=',n,', m=',m);

end;

writeln('n=',n,', m=',m);

end.

Результат:

Введите n и m через пробел:

1 10

Шаг 0, n=1, m=10

Шаг 1, n=2, m=8

Шаг 2, n=4, m=6

Шаг 3, n=8, m=4

n=8, m=4

0 0

4 года назад