В предложении 69 символов.
16 бит = 2 байта
I=69*2=138 байт
Ответ: 138 байт
Var
num, sum, k: integer;
begin
sum := 0;
read(k);
for num := 2 to k do if num mod 2 = 0 then sum += num;
write(sum);
end.
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
15.To(30).Tabulate(x->x*1.8+32).Println(NewLine)
end.
<u>Результат</u>
(15,59)
(16,60.8)
(17,62.6)
(18,64.4)
(19,66.2)
(20,68)
(21,69.8)
(22,71.6)
(23,73.4)
(24,75.2)
(25,77)
(26,78.8)
(27,80.6)
(28,82.4)
(29,84.2)
(30,86)
Const n=10 ; m=10;<span>
var A: array [1..n,1..m] of integer;
s, i, j: integer;
begin
randomize;
for i:= 1 to n do
begin
</span>for j:= 1 to m do<span>
begin
A[i,j]:= -100 + random (100);
write (A[i,j]: 5);
end;
writeln;
end;
</span>for i:= 1 to n do
begin
s:=0;
for j:= 1 to m do <span>
if A[i,j] < 0 then s:=s+A[i,j];
</span><span> writeln('s ',i,' столбца=' , s);
end;
end.</span>
If (xa * xa + ya * ya) < r * r then внутри
if (xa * xa + ya * ya) > r * r then во вне
if (xa * xa + ya * ya) = r * r then на