Var n: integer;
begin
read(n);
write((102 - n) div 3 * ((n + 2) div 3 * 3 + 99) div 2)
end.
For A = 1 To 10
If A mod 2 <> 0 Then
Print A * A
End if
Next A
Const n=15;
var a,b,c:array[0..n] of integer;
s_a,s_b:string;
i:integer;
Begin
readln(s_a);
readln(s_b);
while length(s_a)<n do s_a:='0'+s_a;
while length(s_b)<n do s_b:='0'+s_b;
for i := n downto 1 do begin
a[i]:=strtoint(s_a[i]);
b[i]:=strtoint(s_b[i]);
c[i]:=c[i]+a[i] + b[i];
c[i-1]:=c[i] div 10;
c[i]:=c[i] mod 10;
end;
writeln;
for i:= 0 to n do write(a[i]);
writeln;
for i:= 0 to n do write(b[i]);
writeln;
for i:= 0 to n do write(c[i]);
End.
Всего точек в рисунке: 800 * 600 = 480000
Количество бит, кодирующих эти точки 480000 * 10 = 4800000 бит
4800000 бит = 4800000 / 8 = 600000 байт
600000 байт = 600000 / 1024 = 585.9375 Кбайт