Вывести на экран предсказуемую численность населения города в каждом году, вплоть до 1999 г

@Simpak · Регистрация: 10.05.2011

Author24 — интернет-сервис помощи студентам

Помогите сделать.
Составить программу используя оператор REPEAT.
Население города увеличивается на 3% каждый год. В 1989 г. население города составляло 65000. Напишите программу, которая выведет на экран предсказуемую численность населения города в каждом году, вплоть до 1999 г.

Заранее благодарен)))

@Mr.Y · 10.05.2011, 17:11

Pascal

Var
 people,year:integer;
Begin
 year:=1989;
 people:=65000;
 Repeat
  people:=round(1.03*people);
  Writeln('Численность на ',year+1,'-й год: ',people);
  inc(year);
 Until year = 1999;
End.

@Simpak · 10.05.2011, 17:20 **[ТС]**

большое спасибо!!!

@Simpak 0 / 0 / 0 Регистрация: 10.05.2011 Сообщений: 10
		1
	Вывести на экран предсказуемую численность населения города в каждом году, вплоть до 1999 г 10.05.2011, 17:02. Показов 1999. Ответов 2 Метки нет (Все метки) Помогите сделать. Составить программу используя оператор REPEAT. Население города увеличивается на 3% каждый год. В 1989 г. население города составляло 65000. Напишите программу, которая выведет на экран предсказуемую численность населения города в каждом году, вплоть до 1999 г. Заранее благодарен))) 0

@Simpak 0 / 0 / 0 Регистрация: 10.05.2011 Сообщений: 10
	10.05.2011, 17:20 [ТС]	3
	большое спасибо!!! 0

Вывести на экран предсказуемую численность населения города в каждом году, вплоть до 1999 г

Решение