Написать программу на языке Pascal. Занесите информацию о десяти европейских странах в массивы. Найдите максимальную численность населения Вот страны:Россия, США, Греция, КНР, Турция, Германия, Испания, Колумбия, Бразилия, Египет
Можно быстро сообразить, какой будет ответ, при кругов Эйлера.
Всего есть 2^6 = 64 возможных комбинаций входных параметров и, соответственно, в таблице 64 строки. Изобразим области истинности выражений A и B. Область истинности выражения A + -B – это объединение области истинности A и области ложности выражения B; область истинности изображена на рисунке зелёным цветом.
Чтобы в закрашенную область попало как можно больше элементов, в незакрашенной области элементов должно быть как можно меньше. В данном случае ничего не мешает тому, чтобы в незакрашенной области вообще не было элементов, при этом все 5 элементов в области истинности B должны одновременно быть и в области истинности A. При этом в область истинности выражения A + -B входят все 64 элемента, максимально возможное число единиц равно 64.
Плотность, я так понимаю, населения на квадратный километр? Взял инфу из Wiki. Вот что получилось:
program HomeWork;
const countries:array[1..10] of string = ('Россия', 'США', 'Греция', 'КНР', 'Турция', 'Германия', 'Испания', 'Колумбия', 'Бразилия', 'Египет');
const density:array[1..10] of real = (8.56,32,81,650,100,230,92,39,23.6,80);
var i:integer;
var d:real;
var s:string;
begin
d := 0;
for i := 1 to length(density) do
begin
if d < density[i] then
begin
d := density[i];
s := countries[i];
end;
end;
writeln('Самая большая плотность в ', s, ', и она равна ', d:3:0, ' человек на квадратный километр')
end.