program zad4;
uses crt;
var
s,i,n: integer;
begin
clrscr;
writeln('Вычисление
суммы первых n положительных чисел');
writeln('введите
количество суммируемых чисел');
readln(n);
s:=0;
for i:=1 to n do
<span>
begin</span>
<span>
If n mod i =0 then</span>
<span> s:=s+n;</span>
<span> end;</span>
writeln('сумма
первых ',n,' положительных чисел равна ',s);
readln;
<span>end.</span>
<span>
</span>
<span>
</span>
<span>Попробуй как-то так</span>
данное в условии число является шестнадцатеричным. Переведем его в десятичную систему счисления, записав в стандартном виде
E*16^3+4*16^2+1*16^1+A*16^0+1*16^-1+2*16^-2
Вместо буквы Е подставим число 14, а вместо буквы А подставим число 10, перемножим и получим ответ 58394,0703125
К- 11+12 = 23
С- 11+19 = 30
Б- 11+2 = 13
23 = 10111
30 = 11110
13 = 1101
Сумма: 10111+11110+1101 = 10000010 = 66
23 = 27 (восьмеричная)
30 = 36
13 = 15
Сумма: 15+27+36 = 102 = 66
23 = 17(шестн.)
30 = 1E
13 = D
Сумма: 17+1E+D = 42 = 66
//PascalABC.Net 3.1.0.1200
begin
var a := ArrRandomInteger(100, 1, 100).toList;
Println(A);
a := a.Sorted.toList;
a := a.Pairwise().Where(x -> x.Item1 = x.Item2).Select(x -> x.Item1).toList;
a := a.Distinct.toList;
Println(A);
end.
1. В скобках записан полином четвертой схемы. Представим его по схеме Горнера:
2. Строим алгоритм из последовательности операторов присваивания, не забывая в конце результат умножить на самого себя (чтобы получить квадрат выражения в скобках). Построение ведем, начиная с самых внутренних скобок.
y=2.5+x
y=x*y
y=-1+y
y=x*y
y=x*y
y=1+y
y=y*y
