Верхний: ctrl shift +
нижний: ctrl +
Программу пришлось немного править, что б заработала
var
k, s: integer;
Dat: array[1..10] of integer;
begin
Dat[1] := 7;
Dat[2] := 9;
Dat[3] := 10;
Dat[4] := 5;
Dat[5] := 6;
Dat[6] := 7;
Dat[7] := 9;
Dat[8] := 8;
Dat[9] := 6;
Dat[10] := 9;
s := 0;
for k := 1 to 10 do
s := s + Dat[k];
writeln(s);
end.
Вывод
76
526 в восьмеричной
156 в шестнадцатеричной
Такие задачи из егэ решаются простым методом подбора, сначала вычисляем, то что известно и подбираем. Затем смотрим на график, выясняем соотношение получается 2:1:1, то есть одно число больше двух равных чисел в 2 раза, вычисляем известные значения, получается a2=1 b2=1 значит из соотношения получается c2=2, подставляем 2=(x-2)*2-4, x=5 все вычислили Ответ: 5.
Var
min, summ, count, maxn, max, i:integer;
begin
summ:=0;
count:=0
maxn:=0;
writeln('Введите диапазон чисел: ');
read(min, max);
for i:=min to max do
begin
if ((i mod 2) = 0) then
summ:=summ+i
else
begin
if (i>maxn) then
maxn:=i;
count:=count+1;
end;
end;
if (count>10) then
writeln(maxn)
else
writeln(summ);
end.
Если нужны какие-то объяснения - пиши в комментарии.