Вычислите для первых n элементов: a) 1+3+5+7+ и 1*3*5*7*; b)2+4+6+8+ и 2*4*6*8*; c)3+6+9+12+ и 3*6*9*12*; d)4+8+12+ и 4*8*12*16*; например: при n=3 имеем 1+3+5=9; 1*3*5=15. надо решить с оператором for, для pascal 7.0.
procedure L(n,first,step:integer); var i,s,current:integer; p:double; begin p:=1; s:=0; current:=first; for i:=1 to n do begin s:=s+current; p:=p*current; Write(current,','); current:=current+step end; Writeln(' : S=',s,', П=',p) end;
var n:integer; begin ClrScr; Write('n='); Read(n); L(n,1,2); L(n,2,2); L(n,3,3); L(n,4,4); ReadKey end.
Зная количество бит в двоичной записи числа, можно посчитать количество бит в восьмеричной записи, так как из двоичной в восьмеричную систему счисления число можно привести группировкой по трем соседним разрядам, начиная с младших. Например, есть число 1100111. Сгруппируем его разряды: (1)(100)(111)=147 - в восьмеричной СС. Пусть количество разрядов 2-ичного числа равно n. Тогда количество разрядов восьмеричного числа будет n/3, деленное нацело и округленное вверх. n=7 => n/3=7/3. Округляем, будет 3. a) 10111010. n=8 => 8/3 - 3 8-ричных разряда б) 1001111000111, n=13 => 13/3 - 5 8-ричных разрядов в) A18C. Сначала найдем n. Посмотрим, сколько значащих разрядов у старшей цифры. A=1010 - 4 разряда. У остальных цифр по 4 разряда всегда. Поэтому n=3*4+4=16 => 16/3 - 6 8-ричных разрядов. г) 1375BE. 1=1 : 1 разряд => n=5*4+1=21 => 21/3 - 7 8-ричных разрядов
m 8 5 n 3 ясно, что основание искомой с/с > 10. Проверим и удостоверимся, что в 11c|c действия выполняются верно. 11 c|c M=6 n = 4 ответ: основание системы 11, m=6, n=4
2. m m 65 n +2 n 4 4 m
5 5 4 2 4 очевидно, что основание искомой с/с > 6. Проверим по действиям в 7 с/с, при сложении в столбик, при m=3 и n=1 и удостоверимся, что всё верно. ответ: осн. с\с = 7, m=3, n=1
uses Crt;
procedure L(n,first,step:integer);
var
i,s,current:integer;
p:double;
begin
p:=1;
s:=0;
current:=first;
for i:=1 to n do begin
s:=s+current;
p:=p*current;
Write(current,',');
current:=current+step
end;
Writeln(' : S=',s,', П=',p)
end;
var
n:integer;
begin
ClrScr;
Write('n=');
Read(n);
L(n,1,2);
L(n,2,2);
L(n,3,3);
L(n,4,4);
ReadKey
end.