Var n:integer; s,p:real;
begin
write('n (чел.) = ');
readln(n);
write('s (кв.км) = ');
readln(s);
p:=n/s;
writeln('Плотность населения = ',p:5:2,' чел/км');
end.
Пример (Россия):
n (чел.) = 146800000
s (кв.км) = 17075400
Плотность населения = 8.60 чел/км
Для представления текстовой информации в компьютере используется алфавит мощностью <span>25<span>6 символов.
</span></span>
1 символ = 8 бит = 1 байт
то есть в тексте <span>"Не оставляй на завтра то,что можно сделать сегодня" 50 сиволов
50 * 1 = 50 байт или (400 бит) памяти занимает</span>
Первая проверка a < b = 100< 12 - нет, уходим по стрелке справа
Вторая проверка b<c = 12 < 100 - да, уходим по стрелке слева
d:=b то есть d:= 12
вывод d = 12
Ответ: 12.