Sub abcd()
n = CInt(InputBox("Введите натуральное n"))
s = 0#
For i = 1 To n
p = 1#
For j = i To 2 * i
p = p * j
Next j
s = s + p
Next i
MsgBox s
End Sub
Определим объем памяти на 1 лыжника. Лыжников 240, т.е. K=240. 240 – не степень числа 2. Найдем число, большее 240 и являющееся степенью 2.
var
n:real;
begin
readln (n);
n:=n*sqrt (2);
writeln (n);
end.
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p < 0).Sum.Print
end.
Program bit;
var m,a1,a2,a3:
integer;
begin
writeln('введите три числа');
readln(a1,a2,a3);
if (a1<a2) and (a1<a3) then m:=a1;
if (a2<a1) and (a2<a3) then m:=a2;
if (a3<a1) and (a3<a2) then m:=a3;
if (a1=a2) and (a1=a3) then
writeln('они равны')
else writeln('меньшее из трёх ',m);
<span>end.</span>