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.
Растровая графика - это в основном фотографии, где единицей измерения - являются точки (пикселы). Работа чаще всего в растровой графикой (из популярных програм) производится в Adobe Photoshop, Illustrator... Если рассматривать фотографию как таковую, то можно увидеть, что она состоит из множества растров (точек, пикселей). Векторная графика - это в основном рисунки, где кривые или прямые линии представляют собой совокупность векторов, направление и величина которых и задают кривую (прямую) линию. Работа с векторной графикой (из популярных программ) производится чаще всего в CorelDraw.
Решим от обратного
1)Вероятность того, что выпадет по 3 очка =1/6 х 1/6=1/36
Вероятность того что Не выпадет по 3 очка =1-(1/36)=35/36=0.972
2) вероятность того что выпадет 2 одинаковых числа =1/6 х 1/6 =1/36
вероятность того что НЕ выпадет 2 одинаковых числа = 1-(1/36)=35/46=0.972