Народонаселение городка возрастает на 3% каждый год. В 1983 году народонаселение

Народонаселенье городка возрастает на 3% каждый год. В 1983 году население города сочиняло 65000. Напишите программку которая выведет на экран предрекаемую численность народонаселения городка в каждом году вплоть до 1999. Написать БЛОК-СХЕМУ. Мне нужна конкретно блок-схема. Программка теснее составлена.
Program p;
var ch:real;
i:integer;
begin
ch:=65000;
For i:= 1983 to 1998 do
begin
ch:=trunc(ch*1.03);
Writeln('Численность народонаселенья в году ',i+1,' одинакова ',ch);
end;
end.

Ярослава Афонькина 2019-10-01 15:31:21

По программке писать блок схему легче, чем по тексту задания

Миша Сагун 2019-10-01 15:35:59

Хотелось бы увидеть вашу программку