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.
Хм.. Я недавно искала тоже. Нашла в учебнике. Первые Олимпийские игры состоялись в 776 году до н.э. в небольшом городе расположенном на юге Греции. Я полностью писать не буду но если нужно подробно то скажи. Вот зимние. Извини ошиблась Первые Зимние олимпийские игры состоялись в 1924. Поначалу зимние и летние Игры проходили в один и тот же год, но начиная с 1994, они проводятся интервалом в два года. К настоящему моменту значительно расширилась программа Зимних олимпийских игр, выросло число участников, среди которых немало спортсменов из южных стран.
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.