Var x,y,i,min,max1,max2:integer;
begin
writeln('пожалуйста, введите поочередно 3 числа');
readln(x);readln(y);readln(i);
if (x<y) and (x<i) then begin min:=x; max1:=y; max2:=i; end;
if (i<y) and (i<x) then begin min:=i; max1:=y; max2:=x; end;
if (y<x) and (y<i) then begin min:=y; max1:=x; max2:=i; end;
writeln('минимальное число =',min);
writeln('произведение 2-х максимальных =',max1*max2);
end.
Пример работы:
пожалуйста, введите поочередно 3 числа641281минимальное число =1произведение 2-х максимальных =8192
Надо сложить эти числа и подилить их на n раз
<u>PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var s:=0.0;
for var i:=1 to n do s+=1/i;
Writeln('S=',s)
end.
<u>Пример</u>
n= 10
S=2.92896825396825
<span>n = int(input("N = "))
if n > 10<span>:
</span></span>----<span>s = <span>0
</span></span>----<span>for i in range(10,n,5)<span>:
</span>----</span>----<span>s += i
</span>--------<span>print(i,end=" ")
print("\nSuma = ",s)</span>