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.
Если нужны какие-то объяснения - пиши в комментарии.
Табличка эксель и скриншот работы в приложениях
Var
k:integer;
a,s:real;
begin
while k < 7 do
begin
write('Введите число: ');
readln (a);
s:=s+a;
k:=k+1
end;
writeln('Сумма 7 чисел равна: ',s)
end.
<span># Как я понял, для отрицательного числа просто добавляется
# знак -
def IntToByte(x):
n = "" if x>0 else "0"
while x > 0:
y = str(x % 2)
n = y + n
x = int(x / 2)
print (n)
a = int(input())
if a>=0:
IntToByte(a)
else:
print('-',end = "")
IntToByte(-a)</span>