Пользуя схему состава. В салоне небольшого самолета летят 42 пассажира. Некоторые из них
бишкекчане, остальные иногородние. Среди бишкекчан — 9 мужчин. Некото-
рые из пассажиров - артисты, но ни одна из иногородних женщин не являет-
ся артисткой. Всего иногородних мужчин 18. Из них 13 — не артисты. Среди
пассажиров, не являющихся артистами, 16 мужчин и 11 женщин. 6 бишкекчан
— не артисты.
Пассажиры,
42 чел.
Бишкекчане
Иногородние
Мужчины
Женщины
Артисты
Не артисты
11
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.