Не совсем если честно понятно было но вот: uses crt; var y :real; S,price1,price2,price3:integer; x1,x2,x3:integer; k,i:real; begin x1 := 1; x2:= 2; x3 := 3; writeln('Среднее арифм. x1,x2,x3 = ', (x1/x2/x3)/3); k := 15.24; k := k - 1/2; writeln('Уменьшили значение k 15.24 на 1/2'); i := 15.24; i := i + 1/2; writeln('Увеличили значение i 15.24 на 1/2'); price1:=150; // 1 галстук. price2:=250; // 1 блузка price3 := 550; // 1 брюки writeln('Пять брюк будут стоить: ', price3*5); writeln('Пять галстуков будут стоить: ', price1*5); writeln('Пять блузок будут стоить: ', price2*5); { ответы на вопросы: a) 1 - раздел модулей, 2 - раздел объявления типов и переменных, 3 - тело программы. б) 1200 - целое число, тип integer, 1200.78 - вещественный тип real } end.
16/2=8 (Остаток 0)
8/2=4 (Ос. 0)
4/2=2 (ост 0)
2/2=1(ост. 0)
32(10)=100000(2)
53/2=26(остаток 1)
26/2=13(остаток 0)
13/2=6(осаток 1)
6/2=3(Остаток 0)
3/2=1(остаток)1
53(10)=110101(2)
80/2=40(остаток 0)
40/2=20(остаток 0)
20/2=10(остаток 0)
10/2=5(остаток 0)
5/2=2(остаток 1)
2/2=1 (остаток 0)
80(10)=1010000(2)
96/2=48(остаток 0)
48/2=24(остаток 0)
24/2=12(остаток 0)
12/2=6(остаток 0)
6/2=3(остаток 0)
3/2=1(остаток 1)
96(10)=1100000
128/2=64(остаток 0)
64/2=32(остаток 0)
32/2=16(остаток 0)
16/2=8(Остаток 0)
8/2=4(остаток 0)
4/2=2(остаток 0)
2/2=1(остаток 0)
128(10)=10000000(2)