Begin writeln('Введите первое число'); readln(a); writeln('Введите второе число'); readln(b);
if (a<0) and (b<0) then Begin a:=a+2; b:=b+2; writeln('a = ',a); writeln('b = ',b); end else if (a>0) and (b<0) then writeln('a*b = ',a*b) else if (a<0) and (b>0) then writeln('b-a = ', b-a)
//PascalABC //NaaMan var N, sum, num, i : integer; A : array[1..10000] of integer; SA : real; begin write('Укажите, сколько будет чисел > '); readln(N); write('Вводите элементы массива > '); // Обнуляем сумму sum := 0; // и количество искомых элементов num := 0; // Ввод элементов массива с одновременным подсчетом for i := 1 to N do begin // Ввод readln(A[i]); write('Ещё > '); // Если введённое нечётное, то if A[i] mod 2 = 1 then begin // добавляем к сумме sum := sum + A[i]; // и считаем их количество num := num + 1; end; // Это среднее арифметическое SA := sum / num; end;
writeln('Сумма элементов ', sum); writeln('Среднее арифметическое ', SA); end.
693∨10 = 1010110101∨2
693∨10 = 1265∨8
693∨10 = 2B5∨16
760∨10 = 1011111000∨2
760∨10 = 1370∨8
760∨10 = 2F8∨16
111000111∨2 = 1∙2∧8+1∙2∧7+1∙2∧6+0∙2∧5+0∙2∧4+0∙2∧3+1∙2∧2+1∙2∧1+1∙2∧0 = 256+128+64+0+0+0+4+2+1 = 455∨10
336∨8 = 3∙8∧2+3∙8∧1+6∙8∧0 = 192+24+6 = 222∨10
14F∨16 = 1∙16∧2+4∙16∧1+15∙16∧0 = 256+64+15 = 335∨10
Объяснение:
∨-подстрочный знак,∧-степень