S = 0
for i in range(2,101,2):
s = s+i
print("s=",s)
Результат:
<span>s= 2550</span>
Const n=10;
var a:array[1..n] of integer;
min,i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=random(21);
write(a[i],' ');
end;
writeln;
min:=a[1];
for i:=2 to n do
if a[i]<min then min:=a[i];
writeln('min = ',min);
for i:=1 to n do
if a[i]=min then a[i]:=99;
writeln('Полученный массив:');
for i:=1 to n do write(a[i],' ');
writeln;
end.
Пример:
Исходный массив:
5 13 9 13 19 3 20 5 9 3
min = 3
Полученный массив:
5 13 9 13 19 99 20 5 9 99
В двоичную:
556:2=278 ост.0
278:2=139 ост.0
139:2=69 ост.1
69:2=34 ост.1
34:2=17 ост.0
17:2=8 ост.1
8:2=4 ост.0
4:2=2 ост.0
2:2=1 ост.0
1:2=0 ост.1
Остатки записываем в обратном порядке (снизу вверх): 1000101100
в восьмеричную:
556:8=69 ост.4
69:8=8 ост.5
8:8=1 ост.0
1:8=0 ост.1
Остатки записываем в обратном порядке (снизу вверх): 1054
в шестнадцатеричную:
556:16=34 ост.12 (С)
34:16=2 ост.2
2:16=0 ост.2
Остатки записываем в обратном порядке (снизу вверх): 22С
Оба искомых числа должны лежать в промежутке от 36 (100 в 6-ричной записи) и 215 (555 в 6-ричной записи) и давать в сумме 259 (1111 в 6-ричной записи), т.е., a+b=259 => a=259-b,
Минимальное а, для которого все эти условия выполняются, равно 44, при b=215.
Очевидно, что остальные пары выглядят так: (45, 214), (46, 213), ... (215, 44), таких пар будет 172. Поскольку пары, отличающиеся только порядком, мы считаем за одну, значит делим на 2: 172/2 = 86.
Ответ 86
* сходится с вашим ответом :)
Var a,s,p:real;
begin
a:=8.5;
s:=0;
while a<=40.9+0.005 do
begin
s:=s+a;
a:=a+0.1;
end;
writeln('s = ',s:6:2);
p:=1;
a:=1;
while a<=3+0.005 do
begin
p:=p*a;
a:=a+0.25;
end;
writeln('p = ',p:6:2);
if s>p
then writeln('Сумма больше')
else writeln('Произведение больше');
end.
Результат:
s = 8027.50
p = 304.54
Сумма больше
