Население города увеличивается на 3% каждый год. В 1993 году население города составляло 65000. Напишите программу которая выведит на экран предсказываемую численность населения города в каждом году вплоть до 2014
Составьте , пожалуйста , программу.
Паскаль.
Ответы
Ответ дал:
0
Простая
Program p;
var ch:real;
i:integer;
begin
ch:=65000;
For i:= 1993 to 2013 do
begin
ch:=trunc(ch*1.03);
Writeln('Численность населения в году №',i+1,' равна ',ch);
end;
end.
Для любых данных
Program p;
var year,y1:integer;
ch:real;
i:integer;
begin
Write('Введите начальный год: ');
Readln(year);
Write('Введите конечный год: ');
Readln(y1);
Write('Введите число населения: ');
Readln(ch);
For i:= year to y1-1 do
begin
ch:=trunc(ch*1.03);
Writeln('Численность населения в году №',i+1,' равна ',ch);
end;
end.
Program p;
var ch:real;
i:integer;
begin
ch:=65000;
For i:= 1993 to 2013 do
begin
ch:=trunc(ch*1.03);
Writeln('Численность населения в году №',i+1,' равна ',ch);
end;
end.
Для любых данных
Program p;
var year,y1:integer;
ch:real;
i:integer;
begin
Write('Введите начальный год: ');
Readln(year);
Write('Введите конечный год: ');
Readln(y1);
Write('Введите число населения: ');
Readln(ch);
For i:= year to y1-1 do
begin
ch:=trunc(ch*1.03);
Writeln('Численность населения в году №',i+1,' равна ',ch);
end;
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад