1. Информатика
  2. Население города увеличивается

Население города увеличивается на 5% ежегодно. В текущем году оно составляет 40 000 человек. Напишите программу, вычисляющую предполагаемую численность населения города через 3 года.

ninalolka ninalolka    1   25.05.2020 12:11    18

Ответы
Keranius Keranius  15.10.2020 08:07

Pascal

var    

k,p : real;    

i : integer;  

begin  

k := 40000;  

p := 1.05;  

for i := 1 to 3 do    

k := k *p;  

writeln (k:3:2);    

end.

Объяснение:

Его нет, потому что так надо

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
yakubovmalik yakubovmalik  09.08.2019 12:30
Дан массив r (м, m). переставить строку с минимальным элементом на главной диагонали со строкой с заданным номером.pascalabc...
alex2002fedorov alex2002fedorov  19.09.2019 06:10
Какие устроиства входят в минимальный состов комьпютеров ?...
DimaVlasov1 DimaVlasov1  19.09.2019 06:10
Как устроиство для обработке информация ?...
tereschenkomaria tereschenkomaria  15.05.2020 13:55
Что выведет программа, если пользователь введет 5, затем 15? a=int(input()) b=int(input()) if a==b: print(1) else: print(9)...
DmitryKind98 DmitryKind98  15.05.2020 13:55
ДАЮ 30 Б После выполнения команды присваивания x:=x+y значение переменной x равно 7, а значение переменной y равно 29. Чему были равны значения переменных x и y до выполнения...
romic123 romic123  15.05.2020 13:55
Составьте пластина понять значение копытных в природе значение в жизни человека ​...
izibaevsergei izibaevsergei  15.05.2020 13:55
Провести декомпозицию вашей диаграммы потоков данных, отобразить уровень процесса кто сможет уже готовым файлом...
SaraSmail SaraSmail  15.05.2020 13:55
Определите по заданным пераметрам печати, сколько листов бумаги необходимо приготовить для печати. Определите тип ориентации текстового документа, который будет напечатан...
Школьниқ Школьниқ  15.05.2020 13:55
это очень будет очень-очень благодарна 1) пример НТМL страницы на которой размещены два вида списков и маленькая таблица 2) атрибуты используют для установления изображений...
tyon tyon  15.05.2020 13:55
Найдите ошибки и исправте их Program N_1: Var: a:b:c read; Begin; Write(a,b); a=a•a; B=b•b; if a+b 100 then; d:=(a+b) •100; else d: (a+b) :100 end; writelm end’...

Популярные вопросы