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

Ответы

Ответ дал: nik7749

Простая 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.

Спасибо

Ответ дал: Гость

а)какое свойство указывает на назначение объекта: ? ответ: являеться носителем информации

б)какое свойство указывает на форму объекта? ответ: круглый

Ответ дал: Гость

на каком языке нужна программа? пример на paskal: program zadacha; var massiv: array [1..15] of integer; i: byte; massiv2: array [1..15] of real; begin randomize; write('isxodnij massiv: '); for i: =1 to 15 do begin massiv: =random(41)-20; write(massiv,' '); end; writeln; writeln('massiv posle preobrazovanij: '); for i: =1 to 15 do begin if massiv=0 then massiv2: =massiv else if massiv mod 5 = 0 then massiv2: =massiv*2 else begin massiv2: =massiv; massiv2: =massiv2/2; end; write(massiv2: 0: 1,' '); end; readln; end.