
Население 2 стран составляет n1 и n2 , соответственно прирост населения составляет p1 и русский,
известно что n1>n2 , а р1 <р2.Составте программу, которая вычислит через сколько лет населения n2 превзайдет население n1. Паскаль.

Ответы на вопрос

ответь у меня !!!!!!!!!!



Для решения данной задачи вам понадобится написать программу на языке Паскаль, которая будет вычислять, через сколько лет население n2 превзойдет население n1. Мы предполагаем, что прирост населения задается в процентах (например, 1% равен 0.01). Вот пример такой программы:
pascalprogram PopulationGrowth; var n1, n2: Integer; p1, p2: Real; years: Integer; begin // Ввод данных WriteLn('Введите население страны 1 (n1): '); ReadLn(n1); WriteLn('Введите прирост населения страны 1 в процентах (p1): '); ReadLn(p1); WriteLn('Введите население страны 2 (n2): '); ReadLn(n2); WriteLn('Введите прирост населения страны 2 в процентах (p2): '); ReadLn(p2); // Проверка условия n1 > n2 и p1 < p2 if (n1 <= n2) or (p1 >= p2) then begin WriteLn('Условия задачи не выполнены.'); Exit; // Выходим из программы, так как условия не выполнены end; // Вычисление years := 0; while n2 <= n1 do begin n1 := n1 + Round(n1 * p1); // Увеличение населения страны 1 на p1 процентов n2 := n2 + Round(n2 * p2); // Увеличение населения страны 2 на p2 процентов Inc(years); // Увеличиваем счетчик лет end; // Вывод результата WriteLn('На протяжении ', years, ' лет население страны 2 превзойдет население страны 1.'); WriteLn('Население страны 1: ', n1); WriteLn('Население страны 2: ', n2); end.
Программа запрашивает население и прирост для двух стран. Затем она выполняет проверку условий n1 > n2 и p1 < p2. Если условия не выполнены, программа сообщит об этом и завершит свою работу. В противном случае, она будет увеличивать население каждой страны на соответствующий процент до тех пор, пока население страны 2 не станет больше, чем население страны 1. После этого программа выведет количество лет, через которое произойдет это событие, а также окончательные значения населения обеих стран.


Похожие вопросы
Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili