var sum, number, n: integer; begin sum := 0; number := 1; write('Введите n: '); readln(n); while (number <= n) do begin sum := sum + number; number := number + 2; end; write('Сумма равна ', sum); end.
2)
var prod, number, n: integer; begin prod:= 1; number := 3; write('Введите n: '); readln(n); while (number <= n) do begin prod := prod * number; number := number + 3; end; write('Произведение равно ', prod); end.
3)
var number, n: integer; begin number := 1; write('Введите n: '); readln(n); writeln('Таблица:'); while (number <= n) do begin writeln(number:5, number*number:5, number*number*number:5); number := number + 1; end; end.
№1:
Для перевода целой части необходимо умножить разряд числа на соответствующую ему степень разряда.
101 = 2^{2}*1 + 2^{1}*0 + 2^{0}*1 = 4 + 0 + 1 = 5
Для перевода дробной части необходимо разделить разряд числа на соответствующую ему степень разряда
101 = 2^{-1}*1 + 2^{-2}*0 + 2^{-3}*1 = 0.625
Аналогично:
№2
101 = 2^{2}*1 + 2^{1}*0 + 2^{0}*1 = 4 + 0 + 1 = 5
101000 = 2^{-1}*1 + 2^{-2}*0 + 2^{-3}*1 + 2^{-4}*0 + 2^{-5}*0 + 2^{-6}*0 = 0.625
№3
11001 = 2^{4}*1 + 2^{3}*1 + 2^{2}*0 + 2^{1}*0 + 2^{0}*1 = 16 + 8 + 0 + 0 + 1 = 25
101000 = 2^{-1}*1 + 2^{-2}*0 + 2^{-3}*1 + 2^{-4}*0 + 2^{-5}*0 + 2^{-6}*0 = 0.625
№4
10100 = 2^{4}*1 + 2^{3}*0 + 2^{2}*1 + 2^{1}*0 + 2^{0}*0 = 16 + 0 + 4 + 0 + 0 = 20
101 = 2^{-1}*1 + 2^{-2}*0 + 2^{-3}*1 = 0.625
Если не понятен значок ^{ } - это степень.
Вложение к следующему заданию